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What's In A Name 

Antic 

Many new readers are curious about our name, ANTIC. They 
wonder what it has to do with computing, and especially with the 
ATARI. ANTIC is the name of one of the LSI chips designed by 
ATARI exclusively for its computers. ANTIC is an acronym formed from the 
words 'Alpha-Numeric Television Interface Circuit." This chip controls the 
video display you see on your TV screen or monitor. ANTIC is a true micro- 
processor and has its own instruction set. By handling the screen display it 
relieves the Central Processing Unit — the 6502 chip — of about one-third of 
the load it would otherwise carry. 

There are three other chips in the ATARI you often hear about. The GTIA 
(CTIA in machines manufactured before January , 1 981 ) is the General Televi- 
sion Interface Adaptor; it enables Player/Missile graphics and Graphics 
Modes through 11. The POKEY chip means "pots and keys." It monitors 
input from the keyboard and controls audio functions. The PIA chip is the 
controller for joystick ports and peripherals. 

Atari 

Atari, the name of the company that makes our favorite computer, was 
chosen by the founder of that company, Nolan Bushnell. It is now 
the second best -recognized product name in the world (next to 
"Coke"). Atari is a Japanese word, taken from the ancient game of GO. 
"Atari" has the approximate meaning of "check " in chess — the player who 
declares "atari"is reminding the opponent that territorial loss is imminent if 
an effective countermove is not made immediately. 

Another Japanese word is sometimes heard in Atari circles. The three- 
legged Atari logo A is called the "fuji," and the key on the keyboard that 
bears the symbol is called the "fuji key." This is because the symbol looks like 
Mount Fuji, but the design is not a letter in the Japanese alphabet, nor is there 
a letter or ideogram called fuji. On the ATARI 400 and 800 computers, the fuji 
key switches the video display from regular to inverse. 

vi 
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Introduction 

by Robert DeWitt 
Managing Editor, ANTIC Publishing Inc. 

This book is for people who own or have access to ATARI computers. It 
excerpts the best material from the first six issues of ANTIC 
magazine, and adds some extra articles, games and other programs 
ATARI owners may need and enjoy. We offer it primarily because our supply 
of back issues for Volume One of ANTIC is nearly exhausted. ANTIC— Trie 
ATARI Resource has become the largest monthly magazine exclusively serving 
the Atari community, and new readers constantly inquire about our early 
material. We hope this fills the bill. 

If you, like us, own an ATARI, your computer is probably the first one you 
have ever owned. Many of us have used a computer in our office or classroom, 
and we may have taken courses in computing. Some of us may have studied 
programming— perhaps BASIC or COBOL. A few of us may have tinkered 
with electronics or even studied computer science, but most of us are rather 
new at all this. 

Whatever our situations, computing sooner or later presents us with new 
terms, concepts, and ways of approaching and solving problems that baffle us. 
We struggle to understand, and gradually (or suddenly) the new ideas come 
clear. One of the qualities of computing is that it is supremely logical. If your 
computer or program doesn't work, some specific thing (or things) is wrong. 
Computers are built around the notion of error-free operation precisely to 
make it easier to find and fix problems. This frustrates new users because 
mistakes are common when you are learning. You don't yet have the exper- 
ience of successful, pleasant use of the computer to encourage you, and you 
haven't yet absorbed the many pieces of information that will eventually lead 
you to quick solutions. You will probably conclude occasionally that your 
computer is broken (it seldom is) or that there is a program logic error. The 
solution is often simpler. 

Our writers and editors have gone through your agonies. At various times 
we have connected our equipment incorrectly, scrambled procedures, 
misinterpreted instructions, overlooked the obvious, "lost" data and pro- 
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grams, ruined diskettes, and made errors in programming. We have typed in a 
listing for hours only to find that the program doesn't work. Occasionally we 
have thrown up our hands in disgust. We know what you are going through. 

We have also returned with a calmer mind, sought help, reread the in- 
structions, persisted, and eventually enjoyed the personal satisfaction and 
some of the accomplishments that home computing brings. 

Our primary purpose at ANTIC is to help you enjoy ATARI computing 
too. ANTIC magazine began as a labor of love, and although it has grown in- 
to a successful publishing business, it is still based on our personal interest in 
ATARI computers. Our first issue was dated April, 1982, and appeared just in 
time for that year's West Coast Computer Faire in San Francisco. That issue 
contained 40 pages and presented eight articles and a few other items. We 
printed about 12,000 copies (all we could afford) and stored them in our 
publisher's apartment. We sold 400 copies at the Faire, and hawked a few 
thousand more to computer stores. We offered the rest as back issues while 
they lasted, but the issue was sold out before the year was over. 

ANTIC was published bimonthly for the first year, so there are six issues 
in Volume One. Issues number one through five are also now sold out. The 
last issue in the volume, February-March 1983, had 112 pages, 17 articles, and 
various other content. By then our circulation was about 60,000. With that 
issue we began monthly publication, and as of this writing have passed the 
milestone of 100,000 copies sold per issue. 

Many ANTIC readers have requested back issues "to complete their set" 
or to get some specific article. It is gratifying to know our early efforts are in de- 
mand. We have gone back over Volume One and extracted the material we 
considered of greatest interest and continuing value. We have added some 
new material, useful especially to those who want to program. We have also 
added several games previously unpublished. 

In spite of its growth in size and quality, in many ways ANTIC number six 
still resembles number one. Every issue featured at least one type-in game, 
placed conveniently at the centerfold. The first was Chicken, by Stan Ockers, 
a fine game then and now. In this book we repeat Chicken and several other 
games from ANTIC Volume One. 

We also reprint TYPO, our checksum program by Bill Wilkinson, the 
buddah of BASIC. TYPO, which means Type Your Program Once, gives you 
a way to locate your entry errors in the BASIC listings that appear in ANTIC 
(and this book), and to verify your listings when correct. We still use TYPO in 
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every issue of ANTIC and it alone will repay the price of this book in the time 
it will save you. 

The Memory Map is another valuable resource. When you turn your 
ATARI on, the Operating System establishes values in memory that guide 
and direct hundreds of functions for your computer. The map tells you where 
these are, what they do, and how they work. This information has been gain- 
ed by digging it out of the technical documentation for the ATARI 400 and 
800 computers. Although it is not comprehensive, we believe it will be helpful. 
You should note it may not be valid in all respects for the new XL line, 

Most of the programs we reprint will be in BASIC, a few in assembly 
language. The programs have been chosen for amusement and usefulness. We 
have reviewed them carefully to make sure they work. Each program has been 
RUN on our machines (400, 800, 600XL, and 1200XL).We have tried to keep 
RAM requirements within 16K. If more, we note it. Our computers were used 
to generate the listings, so they should work as published. Technical problems 
that appeared in the magazine version have been corrected here. Any new 
problems should be reported in writing, attention Technical Assistant, to the 
address below. If you want a personal response, include a self-addressed 
stamped envelope. We know from experience that most problems are due to 
entry errors, so use TYPO and review your work carefully before writing. 

The listings in this book have been produced to show you exactly the 
same ATARI characters you will see on your video screen in the same place 
you will see them. In other words, the listing emulates the screen. This will 
help you type correctly and proof your work. The keystrokes needed to pro- 
duce some of these characters may not be known to you. The Table of Listing 
Conventions that follows provides a chart of these obscure characters and 
tells you how to enter them. 

If you would prefer not to type in these programs, you can obtain them on 
disk or cassette by using the form inthe front of the book, or by sending your 
check, money order or credit card authorization to: ANTIC Anthology, 524 
Second St. San Francisco, CA 94107 
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Listing Conventions 

Table Information 

Our custom font listings represent each ATASCII character as it appears on 
the video screen. You generate some characters by a single keystroke, for ex- 
ample, the regular alphabet. Others require a combination or sequence of 
keystrokes. In this table, ESC means press and release the escape key before 
pressing another key. CTRL or SHIFT means press and hold the control or 
shift key while simultaneously pressing the following key. 

The Atari logo key ( A ) "toggles" inverse video aplhanumeric and punc- 
tuation characters. Press the key once to turn it on; press again to turn it off. 
On the 1200XL there is no logo key; inverse video is controlled by a key on the 
function row. Decimal values are given for reference, and correspond to the 
CHR$ values often used in BASIC listings. 
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Help for the New User 

As a regular feature in ANTIC we try to provide useful, jargon-free in- 
formation for the new user. As time goes by there will be many more 
of you opening a silver box to the world of ATARI. We would like to 
relieve you of any unnecessary anxiety and help you verify that your equip- 
ment is operating correctly. 

Can 1 hurt my machine? 

No, there is nothing that you can do from your keyboard in normal 
operation that will harm your ATARI. Feel free to press any key in any order. 
Experiment, try it, learn by example and by trial and error. One note of warn- 
ing, always save a copy of your program on cassette or disk prior to experimen- 
ting. This way you 11 have a copy to reload should the experiment fail, or 
someone kicks the plug out of the socket. Keep food and drink away from your 
equipment, and disks and tapes away from magnetic fields and dust or ash. 

What does 32K mean? 

In computing circles, terms like 16K or 32K are frequently heard. 
Numbers with the suffix K are used to refer to the amount of memory 
available in your machine. K is a metric abbreviation and refers to the number 
1000. The computer world adopted K to mean 1024, the value of two to the 
tenth power. So, 32K RAM would mean that 32,768 bytes of memory are 
available. Most ATARIs come factory equipped with 16K RAM. Both the 
ATARI 400 and 800 can be expanded to 48K RAM, or 49, 1 52 characters of in- 
formation. Consult your local dealer about memory expansion products. 

How can I be sure that all my memory is there? 

To verify that your installed memory is being recognized, type the com- 
mand PRINT FRE(0), and press [RETURN]. 

]ames Capparell is the publisher and founder of ANTIC — The ATARI Resource. 
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With the BASIC cartridge installed you should read: 
13326 (if 16K) 
29710 (if 32K) 
37902 (if 48K) 

How many characters will fit on the screen? 

A maximum of 40 text characters per line, by 24 lines, can be displayed on 
your TV screen by the ATARI. In normal operation only 38 characters are 
allowed because of the two-character margin. This can be changed by typing 
the command POKE 82,0 (press [RETURN]). This effectively moves the left 
margin two characters left, giving you the maximum of 40 characters. Press 
[SYSTEM RESET] to restore margins. 

How long a line will BASIC accept? 

BASIC can receive up to 120 characters per command line (three full 
40-character lines). This is also called a "logical line." The normal margin 
reduces this to 114 characters. A warning buzzer sounds seven characters from 
the end. If you type more than the maximum, the excess characters are 
ignored. 

Is there an easier or faster method 
of entering BASIC. 7 

Yes, use abbreviations wherever possible (look at Appendix A of your 
BASIC Reference Manual). Using abbreviations will save typing time. For 
example use N. instead of NEXT or C. instead of COLOR. The BASIC car- 
tridge will expand these abbreviations for you automatically. It is also legal to 
eliminate spaces wherever possible, once again BASIC will insert spaces for 
you. For example, 110REM is okay. 

What color should my screen be when 
I turn on my ATARI. 7 

Your screen should be blue when first turned on. This is one of 128 color 
possibilities available. There are 16 colors and eight hues on every 400/800. 
Look at page 50 of the BASIC Reference Manual for the color-range descrip- 
tion. 

8~ 
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What is Memo Pad Mode? 

The ATARI will respond with this statement whenever you turn power 
on without either a language cartridge installed or the disk-system DOS in- 
stalled. You can display characters on the screen with Memo Pad Mode, but 
that's about all. 



What does screen editing mean? 

This refers to the ability to insert and delete characters on the screen by 
moving the cursor around and by using several other keys. Press [CTRL] (the 
control key) and the up/down or left/right arrows simultaneously to see this 
effect. Errors can be corrected and lines inserted without the necessity of 
retyping entire lines. Look at Chapter Three of the BASIC Reference 
Manual for more edit features, and see the Screen Editing article in this book 
for an exercise. 



Why does my screen change colors when 
I leave it for a while? 

This is called attract mode. If there has been no input from your 
keyboard in the previous nine minutes, the colors begin to change on your 
television. This occurs to protect the color phosphors of your picture tube. 
Just press any key and the colors will return to normal for at least nine 
minutes more. 

How can I be sure my equipment 
is operating properly? 

Modern electronic equipment is extremely reliable. In almost all cases 
your computer either will fail in the first 50 hours of use, or continue 
operating for the next five years. Whenever you power -on your computer 
with the BASIC cartridge installed, the friendly message READY should ap- 
pear in the upper-left corner of the screen. Almost always computer failure 
will be total. It will either run properly or it won't run at all. If you should 
develop trouble, read the instructions and recheck your power and connec- 
tors. Begin to eliminate probable causes one by one. Be methodical! If your 
cassette doesn't work, try it on your friend's computer. Try to isolate the pro- 
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blem. You can save yourself unneeded trips to the repair center by thinking 
through the problem, trying and retrying. These techniques work for profes- 
sionals and they 11 work for you. 

by James Capparell 
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As an ATARI owner, you will benefit from having its built-in "screen 
editor," one of the best available in the micro market. What's a screen 
editor? It's the built-in program that allows you to change words and 
letters after they have been keyed onto your display screen. 

As you begin to program with your ATARI, you will come to appreciate 
this powerful tool. At first, though, it may seem strange to you, and you will 
make mistakes until you learn how it works. 

The most important thing to do, in this or any other computer function, 
is to read the instructions. These are in your Operators Manual, and in the 
BASIC Reference Manual, under "Screen Editing" and "Editing." Read these, 
do the exercises, and experiment. Be bold. You cannot damage your computer 
by making keyboard errors. 

Ground Zero 

Connect your computer as instructed, insert the BASIC cartridge, and 
power -up. On a color television you will see a blue screen with black borders, 
the word READY, and the white cursor beneath the "R". Remember, this is 
not an exercise in BASIC, but in screen editing. The BASIC program used is 
just an example. 

This blue screen is BASIC Graphics Mode 0, designed to display text. 
This mode divides the screen into 40 character positions across the screen and 

Robert DeWitt is a journalist from San Francisco who began writing about computers in 1980 based 
on studies at Control Data Institute . He bought an ATARI as an apparent ' 'best-buy ' ' tool for his writing , 
and gravitated to the fledgling ANTIC through the local user group. He gradually cissumed more of the 
editorial functions of the magazine, becoming Managing Editor in November, 1982. 
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24 lines down, i.e., a 40x24 grid yielding 960 character positions. Each posi- 
tion on the screen is the size of the cursor, and can be identified by its column 
and row number, beginning with 0,0 in the upper left corner and ending with 
40,24 at the lower right. The first number, 40, indicates the column and the 
second number, 24, is the line number. 

The content of each of the 960 positions is controlled by the Editor pro- 
gram, built into the ATARI Operating System. It takes one byte of memory to 
code the contents of each position. For the ATARI computers, this code is call- 
ed the ATASCII code. You will find it in Appendix C of your Atari BASIC 
Reference Manual. 

The important thing to know is that you can determine and change the 
content of these screen positions by using your keyboard. Editing deals mostly 
with changing and erasing the display. 

You should now be running Atari BASIC and have the READY prompt 
on the screen. Type in the following program, beginning at "10 REM . . ." and 
be sure to include the misspelling of "capabilities." [RET] means press Return 
key. Begin! 

10 REM * SCREEN EDITOR EXAMPLE * [RET] 
20 PRINT "THIS IS AN EXAMPLE OF ATARI 
SCREEN EDITING CAPABILTIES" [RET] 
RUN 

Notice that as you typed line 20, the line "broke" between ATARI and 
SCREEN. This is an example of the "logical line" continuing over two 
"physical" lines. This phenomenon is called "wraparound." A logical line can 
be as long as three physical screen lines. The computer will "beep" when you 
are close to the logical line limit. 

After the run, you should see on the screen: 

THIS IS AN EXAMPLE OF SCREEN EDI 
TING CAPABILTIES 

READY 

Now we will edit this material. Generally speaking, we edit by moving the 
cursor to the character position we wish to change and then changing the 
character. The cursor rests at the left margin below the R in READY. Find the 
Delete Back Space key (upper right corner), which we will represent as [DEL], 
and press it. The cursor does not move. 

How can we move the cursor? Find the [CTRL] key. Press it down and 
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hold it there. Find the "up" arrow key and press it three times. Release the 
[CTRL], The cursor will move up three lines and be superimposed over the T 
in TING. Notice that the T appears dark blue within the field of the cursor. 
This condition is called "inverse video." 

Press the space bar four times. The cursor moves across the letters of 
TING, erasing them as it passes. 

To the right of the cursor is the word CAPABILTIES. Next, correct the 
spelling. Press and hold [CTRL], and press the right-pointing arrow key until 
the cursor is superimposed on the T We want to insert the letter I. Holding the 
[CTRL], press the Insert key (top row, third from right). 

Voila! A space opens between the L and the T Release [CTRL] and type 
in the letter I. The cursor now rests over the letter T. To exit from the word 
without changing it further, press and hold [CTRL], and press the left- 
pointing arrow until you have backed out of the word. Release [CTRL]. 

Up and Over 

Here is a surprise for you. Press [DEL] six times. This will be enough to 
make the cursor back up to the line above. This is due to wraparound. It 
would not be possible between logical lines without using the [CTRL], 

We can now repair the damage done to the word EDITING by typing it 
again. When the cursor again rests between EDITING and CAPABILITIES, 
press and hold the [CTRL], press the down-arrow key three times, release 
[CTRL] and finally, press [RETURN]. 

Let's see if we have corrected the misspelling. Type LIST and press [RET]. 
This command rewrites the corrected program. You should have lines 10 and 
20 come up, and the error is still therel That's because the correction was made 
to the "run," and not the program. This time we will fix it for good. Press and 
hold [CTRL]. Press the up arrow three times till the cursor is over the S in 
SCREEN. Press the right-pointing arrow key till the cursor is over the T in 
CAPABILITIES. Still holding [CTRL], press the Insert key. Pop! Release 
[CTRL], then [RET]. Type RUN and press [RET]. A new line should appear 
on the screen. Read your correction. WHAT! The error is still there? 

That's right. This is the trickiest part of screen editing in BASIC. 
Remember, changes to the screen do not necessarily change the stored pro- 
gram. Changes within lines (deferred mode) are made permanent by pressing 
the return key [RET] before you leave the logical numbered line on which the 
change was made. 
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Let's do it right this time. Hold [CTRL]. Move the cursor up until it is over 
the S in SCREEN. Hold the [CTRL] and press the right-arrow until the cur- 
sor is over our "I" (yes, it's still there is screen memory, but not in program 
memory). Release [CTRL]. This time, press [RET]. The cursor jumps down to 
the beginning of the next line, above the READY. Type RUN and [RET]. 

Aha! This time the change has been made in the program. Failure to use 
the screen editor correctly can cause you no end of grief. The main thing to 
remember is that all corrections to program (numbered lines) must be con- 
firmed by pressing [RETURN] before moving the cursor from the corrected 
line. 

by Robert DeWitt 



Oh, Those Bugs 



After the publication of "Chicken" and "Attack on the Death Star" in 
ANTIC we received many calls from puzzled readers who were 
unable to make the programs run. Since both listings were correct, 
we know many of you need help finding errors. This article will give some 
elementary guidance in debugging BASIC programs. Also see and use TYPO, 
in this book, to help you find entry errors. 

The most important advice we can give is: never attempt to RUN a pro- 
gram prior to saving a copy on disk or tape. Should your newly typed program 
contain a fatal error it may possibly cause the computer to fail to respond to 
the keyboard. This forces you to turn the power off and then on again in order 
to reset, erasing computer memory and your program. 

We assume you've corrected your normal typing errors, those which 
generate an error message when you press [RETURN] after a line. The re- 
maining errors are more subtle and are not reported until the computer tries 
to execute the program. 

Such things as NEXT with no FOR, or a RETURN with no GOSUB, are 
generally the result of a missing line. Tracing back through the program to the 
line where the command should be is fairly straightforward. More difficult are 
the errors which are not actually in the line the computer indicates. You have 
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to know where else to look for the error. Most notorious of these are errors 
which result from mistyping a DATA statement. 

Most errors in typed computer programs stem from DATA 
statements. There are logical reasons for this. Human beings are not very 
good at duplicating long strings of numbers or letters separated by commas. 
Numbers get transposed or dropped, commas get left out, or periods are 
substituted for them. Secondly, the computer does not check DATA state- 
ments during input. You can put anything in a DATA statement and the com- 
puter won't protest — until you try to RUN the program. 

A surprising variety of errors can be traced to DATA statements. There is, 
of course, "Out of Data" (Error 6), but often the following errors are due to 
DATA errors: 

1. Value Error (outside a specified range; Error 3) 

2. String length error (Error 5) 

3. Number greater than 32767 (Error 7) 

4. Input statement error (Error 8) 

5. Cursor out of range (Error 141) 

It is true that these error messages can also be caused by other mistakes 
besides DATA statements. Out of Data and Cursor Out of Range can be caus- 
ed by an error in the parameters of a FOR-NEXT loop. Often there will be a 
series of FOR-NEXT loops in a program, and an error in typing the 
parameters of one FOR-NEXT loop won't be detected until one of the follow- 
ing loops is executed. A String Length error may be the result of mistyping the 
DIM statement. In general, this is not detected until you try to define or use a 
portion of the string past the dimensioned length. 

Knowing that such a wide range of errors can indicate a mistyped DATA 
statement is half the battle. Finding out which DATA statement can be dif- 
ficult because the computer reports the error as occurring in the line contain- 
ing the READ statement. Thus, if line 10 says (in part), "READ X, Y: PLOT 
X, Y" followed by lines of DATA statements, any data error will be reported as 
occuring in line 10, even though line 10 is typed in perfectly! The problem of 
finding the erroneous DATA statement is somewhat simplified if each READ 
statement is followed by its DATA statements. 

There are other ways to isolate the problems. One way is to check the line 
where the error is reported and ask the computer to print the value of the 
READ variable. Often the READ statement is executed in a FOR-NEXT 
loop, and you can ask the computer to print the value of the loop variable. For 
example, let's look at the following BASIC program: 
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10 DIM A$ (10) 

20 FOR N = 1 to 10: READ Q_: A$ (N,N) =Q: NEXT N 

30 DATAO, 1,2,3,4,5,6,7,8,9 

40 FOR M = 1 TO 5: READ X, Y, Z: PLOT X, Y: 

POKE 256+M, Z: NEXT M 
50 DATA 10, 20, 24, 30, 40, 24, 50, 60, 24, 70, 80, 24, 
90, 100, 25 

Suppose you accidentally typed A$(5) instead of A$ (10) in line 10. You'll 
get the error message "ERROR 5 on Line 20". This is an example of a 
"misleading" error message. Next, suppose you made "8, 9" into "8.9" in line 
30, by substituting a period for a comma. You'll get the message "ERROR 6 on 
line 40". Line 40? What's going on here? When line 20 is trying to READ Q 10 
times (N = 1 to 10), it runs out of data on line 30 because 8.9 is one data item, 
while 8, 9 is two. The computer gets the first data item on line 50. When line 40 
executes, it starts reading at the second data item on line 50 and, consequent- 
ly, runs out of data. 

The first thing to do is type (in direct mode) PRINT M. The computer 
responds with 5. You can tell that line 40 did not finish executing, because if it 
had, the computer would respond with 6 — one more than the loop limits. 
Counting off the data items in line 50 reveals that the last values of X, Y, and Z 
should be 90, 100, and 25 respectively. Typing in PRINT X, Y, Z causes the 
computer to respond with 100, 25, and 90. Everything is off by one data item, 
but line 50 is typed in perfectly. Now go back to the READ statement executed 
on line 20 and type in PRINT Q. The computer responds with the last value of 
Q, which is 10. That's right, so you look at line 30 to find your error. 

Leaving out commas is an easy way to get Cursor Out of Range, Value 
Error, and Input Statement Error. Leaving out the comma between 10 and 20 
on line 50 would cause the computer to try to plot 1020, 24 — a non-existent 
position off the screen. Leaving out the comma between 24 and 30 would 
cause the computer to try to POKE the number 2430 into memory. Since 255 
is the largest number a memory location can contain, this will also generate an 
error. 

Finally, make sure that after you have made corrections and deletions to 
your program that you press [System Reset]. Sometimes errors cause critical 
memory locations to change in such a way that even error-free programs can- 
not run. Prior to every test run, press [System Reset]. Of course once your pro- 
gram runs correctly this is not necessary. 



by David Plotkin 
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A Sound Introduction 

Many new users have not realized the tremendous potential for 
music and sound hidden in their ATARI computers. After all, a 
computer that can produce phaser noise or let you hear Indianapolis 
cars racing down the straight-away, by altering a few simple commands, 
should be capable of more. 

The following applies to both the 400 and 800 and is completely memory 
independent. 

Sound on the ATARI is really made possible by the same technology that 
brought you hand-held calculators. I'm talking about the integrated circuit. In 
this case a special integrated circuit was designed and named POKEY (Pots 
and Keys). Every ATARI built has this special chip and therefore can play 
music and generate interesting sounds. 

You might think of POKEY as a barber shop quartet, since there are four 
voices available. Each voice can be turned up loud, or so low it can barely be 
heard. Each barber (voice) can "sing," or sound, 255 different notes or pitches. 
Some of these are so similar your ear can't distinguish the differences. Among 
them are several that correspond to the musical scale (see Table 1). Each voice 
can be made to sound a pure tone — as if you were to whistle the note — or 
distort the tone. Distortion is one way of taking a familiar note and making it 
sound like a growl, hiss or rumble. 

TABLE 1 



E 193 


C 121 Middle C 


F 182 


D 108 


G 162 


E 96 


A 144 


F 91 


B 128 





Let's put this in the context of the standard ATARI BASIC statements. 

SOUND A,B,C,D is the general command format to generate sound, 
where: 

A=Voice, one of the four barbers. A can equal any value from zero to 
three. 
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B =Pitch or note. This can equal any number from one to 255. The higher 
the value the lower the note. 

C=Distortion. Any even number from zero to 14. Ten gives the purest 
tone with least distortion. 

D = Volume. Any number from one to 15 is legal. A zero turns sound off. 

That seems pretty easy, and so it is. Try this. SOUND 0,121,10,8 
[RETURN]. This will cause the first barber (his number is zero) to sing middle 
C with as little distortion as possible. Now vary the volume; try a four and 
then a 14. Eight is a good volume value when more than one barber is singing. 
Experiment with distortion; change the 10 to a four, then a 14. Restore the 
sound statement as it is above. Now, add a second barber. 

SOUND 1,72,10,8 This voice sings the note A above C. 

SOUND 2,45,10,8 This voice sings the note F. 

SOUND 3,193,10,8 This sings E below middle C. 

Turn off each barber's voice by making the corresponding volume zero. 

To turn off all voices, type END. 

The legal abbreviation for the SOUND command is SO.; try it and save 
typing. 

The following sounds should be experimented with. They are presented 
to get the wheels turning. I'm sure you can all do much better. 

Our first sound is an explosion. Change the value of DUR in line 30. Experi- 
ment with volume changes in line 90. 



H 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

120 



REM EXPLOSION 

REM DUR-LENGTH OF EFFECT, 1-10 
DUR-6 

P ITCH-2 : G OSUB 80 
SOUND 1,0,0, : SOUND 2,0,0,0 
GOTO 30 

REM ** * SUBROUTINE *** 
SOUND 2,75,8,15 
ICR-0. 79+DUR/100 
V1-15: V3-15: REM VOLUME 



SOUND 
SOUND 



PITCH, 8, V1 
PITCH+20,8 



V2 



11 



STARTING LINE 



130 SOUND 2. PITCH + 50. 8, V3 

1 4 V 1-V 1 * ICR 

150 V2-VZ * ( ICH + . 05) 

160 V3-V3* { ICR+0 . 08 ) 

170 IF V3>1 THEN 110 

180 SOUND 0,0,0, : RETURN 



Sound number two is a familiar siren. Change the DUR value in line 30. Try 
varying the step size in line 60. 



r 



10 REM SIREN 

20 REM DUR-TIME 

30 DUR-10 

40 LO-50 : HI-35 : STP> 

50 FOR TIME-1 TO DUR 

60 FOR PITCH-LO TO HI 

70 SOUND 0, PITCH, 10,14 

80 FOR WAIT-1 TO 1 5 : NEXT 

90 NEXT PITCH 

100 XX-LO : LO-HI : HI-XX:STP — STP 

110 NEXT TIME 

120 SOUND 0,0,0, : GOTO 30 



Sound number three is a European variation of the siren. Run it, you'll hear 
the difference. Experiment with the LO and HI values in line 40. 



IN SECONDS 
1 

STEP STP 
WAIT 



A 



A 



REM EUROPEAN SIREN 

20 REM DUR-SECONDS RUN 

30 DUR-5 

40 L 0-5 7 : H 1-4 5 : P ITCH-HI 

50 FOR TIME-0 TO DUR * 2 

60 SOUND 0, PITCH, 10,14 

70 FOR WAIT-1 TO 1 8 : NEXT WAIT 

80 PITCH-LO : LO-HI : HI-PITCH 

90 NEXT TIME 
1 00 SOUND 0,0,0, 0: GOTO 30 



Sound four is the whistle and explosion of a falling bomb. Try to determine 
what makes the whistle sound and what part of the program makes the explo- 
sion sound. 
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10 
20 
30 







90 

100 

1 10 

1 20 

130 

140 

150 

160 

170 

180 

190 

200 



REM WHISTLE & BOMB 

REM DUR=LENGTH OF EFFECT 

DUR = 5 

V1-4 : FOR PITCH-30 TO 75 

SOUND 0, PITCH , 1 0, VI 

SOUND 1 ,PITCH+3, 1 8 , V 1 * . 7 

FOR WAIT-1 TO DUR*3:NEXT WAIT 

V 1 -V 1*1 . 03 : NEXT PITCH 

SOUND 2,35,8,12 

V 1 = 1 5 : V2-15: V3-15 

PITCH=DUR+5:ICR-0.79+DUR/100 
PITCH , 8 , VI 



SOUND 
SOUND 
SOUND 
V1=V1 
V2-V2 
V3-V3 



1 , PITCH + 20 
2, PITCH + 50 
ICR 

(ICR+0. 05) 
(ICR+0. 08) 



8 



V2 
V3 



IF V3>1 
SOUND 
SOUND 2 



THEN 120 

0, 0, 0: SOUND 1 
0,0, 0: GOTO 30 



Sawing wood is sound five. Try changing the pitch and volume. Also 
eliminate the wait in line 180. 



20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

120 

130 

140 

1 50 

160 

1 70 

180 



SAWING WOOD 
DUR-SECONDS 



REM 

REM DUR-SECONDS RUN 

DUR = 8 

FOR TIME-1 TO OUR 

ST=6 : VL-12 :GOSUB 90 

ST=8 : VL=8 : GOSUB 90 

NEXT TIME: RETURN 

FOR PITCH=ST+5 TO ST STEP - 
GOSUB 1 60 : NEXT PITCH 
FOR PITCH-ST TO ST+5 
GOSUB 1 7 : NEXT PITCH 
SOUND 0,0,0, : SOUND 1,0,0, 
FOR WAIT-1 TO 25 : NEXT WAIT 
GOTO 40 

SOUND 0, PITCH, 2, VL 
SOUND 1 , PITCH , 8, VL*0. 7 
WAIT=(WAIT/5) *5 : RETURN 
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There are many opportunities for the experimenter to use the sound com- 
mand. Perhaps a program using the joystick to vary pitch or distortion would 
make your experimentation easier. Random notes and harmonies can be very 
interesting. Look up and use the RANDOM command in your BASIC 
Reference Manual. If you should write something interesting, let us know. 
ANTIC is always looking for new, interesting and helpful material. 

by Jim Capparell 

TYPO 

Type Your Program Once 

TYPO is designed to help you find typing errors made when entering 
BASIC programs published in ANTIC. When used properly, TYPO 
will produce a table of values which can be used to pinpoint where an 
error was made. ANTIC will publish a table with every BASIC listing, and 
the user may compare the two tables to ensure they are identical. If they are 
not, then the user presumably made a "typo" which needs to be corrected. 

How To Use TYPO 

1. Enter program listing Exactly as shown. 

2. LIST this program to disk ( LIST "DTYPO.LIS") or cassette ( via LIST 
"C:"). When using a cassette, use an entire blank cassette for just this 
program. 

3. Type NEW to clear memory. 

4. Type in a program from this book, or ANTIC magazine. 

5. LIST this program to the disk ( LIST "D:N AME") or cassette ( LIST "C:). 
Type NEW and reenter the program ( ENTER "D: NAME" or ENTER 
"C;"). 

Bill Wilkinson is the president and founder of Optimized Systems Software, Inc., of Cupertino, 
California. He helped design the original Atari BASIC and has developed several other computer 
languages including Basic A+ and the new language, Action. Bill's work has been published in a 
number of publications including ANTIC. His checksum program, TYPO, is continuously used in 
ANTIC to help ATARI users verify their BASIC programs after typing them in . 
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6. Append the TYPO program onto the end of the program from the disk 
( ENTER "DTYPO.LIS") or cassette ( ENTER "C"). 

7. Type GOTO 32000 and a checksum table will be printed on your screen. 
Compare this table with the one published; if they agree you are finished 
and the program should run. 

8. Note the value of the "variable checksum" printed on the screen, and 
keep it handy. 

9. If the table does not agree with the published table, examine the lines 
which have codes and /or lengths which disagree. Correct any errors. 

10. If and only if the variable checksum you noted agrees with that printed 
with the program, go to step 7 above and try again. 

11. If the variable checksums do NOT agree, you MUST go to step 5 above 
and perform the listing and reentering ritual! You may skip step 6, 
however, since presumably you have the combined programs now 
LISTed together. 

Follow these instructions exactly! 

What TYPO Is Telling You 

THIS PROGRAM IS FUSSY! It cares about every little period, comma, and 
even spaces. It also cares about the order in which you typed in program lines! 
The order in which the variable names are stored depends upon the order the 
lines were typed. Should this order be altered the values of the tokens and the 
subsequent checksums will be altered. 

The "variable checksum" is used to correct for some of this by producing 
an (almost) unique checksum which depends on the order in which the 
variables are stored. If your checksum doesn't agree, you have either entered 
lines in the wrong order or misspelled a variable name. In either case, you 
must correct your error(s) and then go through the LIST/NEW/ENTER 
sequence to assure that the variables are put back in order. 

The length shown is the number of bytes encountered by TYPO within 
the line number range shown. The two-letter code is essentially a checksum of 
"length" bytes within that same range. If the length is correct and the 
checksum is off, you have made a spelling or punctuation error. Watch out: 
since all keywords and operators (including two-character operators such as 
" =") are tokenized as one byte, the length might stay the same even though 
you type SET COLOR for CLR. Note!! You may use abbreviations for 
keywords as long as the LISTed result conforms to the published listing. 
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If the length bytes disagree, you have added or deleted characters. If 
nothing obvious shows, pay special attention to characters in quoted strings 
and/or REMark statements. It is easy to omit a space or punctuation in a 
REMark, thinking that "REMarks don't matter"; but to TYPO they do. 

This is a small but sophisticated program, use it and typing errors will be 

reduced. 

by BiU Wilkinson 



NOTE: TYPO asks for output file. Respond with S for television or 
P for printer. 
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32000 REM Type Your Program Once — " T 

YPO" 

32100 CLR :DIM QS ( 2 ) : Q F-7 : C L OS E #0 F : ? 

"File for output " ; 
32110 INPUT OS : OPEN #0 F , 1 2 , , Q $ : R EM= 
32130 QCNT=1:F0R Q A DD R=P E EK ( 1 3 ) +2 5 6* P 
E EK ( 1 3 1 ) TO PEEK( 1 3 2 ) + 256 * P E E K ( 133)-1 
32140 QSUM-QSUM+PEEK( QADDR )*QCNT:QCNT~ 
QCNT+1 :NEXT QADDR 

32150 ? #QF ; " Va r i ab I e checksum - ";QSU 
M:? #QF 

32160 QADDR-PEEK(136)+256*PEEK(137):? 
#QF;" Line num range Code Length 

32170 QLINE-PEEK(QADDR)+Z56»PEEK(QADDR 

+ D 

32180 IF QLINE>-32000 THEN END 

32190 QLEN-0:QSUM-QLEN:QCNT=QLEN:? #QF 

" ; Q L I N E , " - " ; 
32200 IF NOT (QCNT<12 AND QLEN<500 AN 
D QLINE<32000) THEN 32270 
32220 QLEN=QLEN+PEEK(QADDR+2):QCNT=QCN 
T+1 
32230 IF PEEK(QADDR+4)-0 AND QREM THEN 

QADDR-QADDR+PEEK(QADDR+2):G0T0 32260 
32240 FOR QADDR-QADDR TO Q ADD R+P E E K ( Q A 
DDR+2)-1 

32250 QSUM=QSUM+PEEK(QADDR) : NEXT QADDR 
32260 Q$=STR$(QLINE):QLINE=PEEK(QADDR) 
+256*PEEK(QADDR+1 ) :G0T0 32200 
32270 QSUM=QSUM-676*INT(QSUM/676):QCNT 
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-INT(QSUM/26) 

32280 ? #QF ; QS ,CHR$( 65 + QCNT) : CHR$(65 + Q 

SUM-26*QCNT) ;" " : QL EN 

32290 GOTO 32180 



TYPO TABLE 



Variable checksum - 50796 

Line num range Code Length 

32000 - 32200 PT 518 

32220 - 32290 WQ 310 



This TYPO Table is the result of using TYPO to check itself. To do this you must 
change lines 32180 and 32200 first. In those lines change 32000 to 32500. Then type 
GOTO 32000 or RUN. Either of these commands will initiate TYPO, ask you to 
designate your output file (S for screen, P for printer), and then produce a table for 
itself. This, your first TYPO Table, should match the one above. If it does not, ex- 
amine your program for typing errors and repeat the process until you get it right. 
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Spin Colors With The Spider 

Since our new ATARI 800 has the GTIA chip, we have been experimen- 
ting with it. Spider is a little BASIC program that lets you doodle 
colors with your joystick. 
Mode 11 is our choice for this program because it gives 16 different colors 
in a high -resolution mode (80 pixels horizontally by 192 vertically). When you 
run the program, a white "spider" appears. The fire button changes the 
spider's color. As you move the joystick the spider leaves a trail of its color. 
When the spider is white it can be positioned without leaving a line (it actually 
draws in background color). 

To start a new design, press [RESET] and type RUN. 

by John and Mary Harrison 



John and Mary Harrison are parents, teachers, and ATARI hobbyists. Mary teaches math and com- 
puter science at the high school level. )ohn holds an M.S. degree in computer science and develops educa- 
tional software. They live in Newport News, VA, and are Contributing Editors to ANTlC's Education 
Department. 
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10 REM ******** SPYDER ******** 

20 REM BY JOHN AND MARY HARRISON 

40 REM FOR ANTIC JUNE 1982 

60 DIM SPIDER$( 1 ) ,SSPIDER$(8) , ERASES ( 1 



SET ASIDE MEMORY FOR PLAYER 
AND SET GRAPH ICS MODE . 



70 REM 

80 REM 

90 MEMT0P = PEEK ( 1 06 ) -1 6 

100 POKE 106.MEMTOP 

110 REM 

120 POKE 8 8,0: FOR 1 = TO 4 : POKE 89, MEM 



CLEAR MEMORY FOR PLAYER 
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/top 



130 
140 
150 
160 
170 

m 

180 
190 

III 

200 
210 
220 
230 
240 
250 
260 

270 E 

280 

290 

300 

310 

+ 5 18 t 

320 R 

330 

340 

350 

360 

370 

380 

390 

400 

41 

420 

430 

440 

450 

460 

470 

480 

490 



+ 1 : ? CHR$( 125) 

RAPHICS 7+16 

EMT0P=MEMT0P+8 

EM 

OKE 54279 ,M 



NEXT I 



START OF PLAYER MEMORY 



EM | 


DECIMAL ADDRESS OF PLAYER MEMO 


MRA 


SE=256*MEMT0P 


EM | 


SINGLE LINE PLAYER DOUBLE WIDT 



0KE559 , 46 : POKE 53256,1 

EM 

K E_ 

EM 

SPI D E R= 19 

SPIDER=48 

EM 



ENABLE PM GRAPHICS 



3 



INITIAL PLAYER POSITION 



CLEAR STRING FOR VERITCAL MOVE 



500 S 



RAS 

EM 

OKE 

EM 

OR 

YSP 

EAD 

OKE 

EXT 

ATA 

EM 

EM 

EM 

EM 

EM 

TAB 

TAB 

FFS 

3 = 1 

2 = 

OKE 

OKE 

OKE 

EM 

SPI 



POSITION PLAYER 



53248 , XSP 



DRAW PLAYER 



I=PMBASE+51 1 +YSPIDER TO PMBASE 
IDER 

DAT 

I ,DAT 

I 

36,36,90, 60,60,90,36,36 



ADDRESS OF ARRAY AND VARIABLE 
TABLES. THIS SECTION OF CODJi| 
ALLOWS YOU TO USE 128 BYTES_ 
FOR SPIDERS WITHOUT RESERVING 
THAT MUCH MEMORY IN THE DIM. 



=PEEK(140)+256*PEEK(141) 
=PEEK(134)+256*PEEK(135) 
ET=256*MEMT0P+51 2 ATAB 
NT( OFFSET/256) 
FFSET-256*M3 
VTAB + 2 ,M2 : POKE VTAB + 3,M3 
VTAB + 4 ,128: POKE VTAB + 5 , 
VTAB + 6 ,128: POKE VTAB+7 , 



SET UP SHADOW FOR SPIDER 



DER$(1 ,8)=SPIDERS(YSPIDER 



"y 
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"\ 



INITIALIZE COLOR AND LINE CO 

ORD 1 NATES . 



READ JOYSTICK AND SET PLAYER 
PARAMETERS APPROPRIATELY. 



DER+7) 

510 REM 

520 REM 

530 C=0 : XLINE=79 : YLINE=35 

540 SETCOLOR 4,0,0: POKE 704,8 

542 SETCOLOR , 3 , 8 : S ETCOL R 1,6.8 

544 SETCOLOR 2,9,8 

550 GOSUB 880 

560 COLOR C 

5 70 PLOT XLINE , YL INE 

580 REM Hill M«JiHi|;W;|iimrn 

590 IF STRIG ( 0)=1 THEN 660 

600 C-C + t 

610 IF C>3 THEN C=0 

620 COLOR C:POKE 7 04 . C*48 + 8 

630 FOR DEL 1 TO 20:NEXT DEL 

640 REM 

650 REM 

660 ST=STICK(0) 

670 IF ST=1 5 THEN 590 

680 IT ST=6 OR ST-10 OR ST=14 THEN YSP 

IDER = YSPIDER-1:YLINE=»YLINE-1 

690 It- ST>4 AND ST<8 THEN XSPIDER=XSPI 

DER + nXLINE = XLINE + 1 

700 IF ST=5 OR ST=13 OR ST=9 THEN YSPI 

DER=YSPIDER+1:YLINE=YLINE+1 

710 IF ST>8 AND ST<12 THEN XSPIDER=XSP 

I DEH-1 : X LINE = XLINE-1 

720 REM i'Miiimmiiiiiiimiajumi 

730 SPIDER$(YSPIDE RTYSpTd^T+7)^S P I D E R 

$ 

740 SPIDER$(YSPIDER-8,YSPIDER-1)=ERASE 

$ 

750 SPIDER$(YSPIDER+8,YSPIDER+15)=ERAS 

E$ 

760 REM HimMiil;M>lll;Mi|;MilHMiiai;ITm 
770 IF XSPIDER<41 THEN XS P I D E R-4 1 : XL I N 
E=XLINE+1 

780 IF XSPIDER>199 THEN XSPIDER=199:XL 
INE=XLINE~1 

790 IF YSPIDER<14 THEN YS P I D E R= 1 4 : YL I N 
E-YLINE+1 
,800 IF YSPIDER>108 THEN YS P I E R= 1 08 : YL 
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INE 
810 
820 
830 
840 
850 
860 
870 
880 
890 
: OR 



= YLI 
REM 
POK 
REM 
DRA 
GOT 
REM 
REM 
COL 
PLO 

AWTO 



HORIZONTAL MOTION OF PLAYER 



NE-1 

E 53248 , XSPIDER 



DRAW SPIDER TRA I L 



WTO XLINE , YLINE 
590 



A 



ROUTINE TO DRAW FRAME . THIS 
SHOWS LIMITS OF SCREEN. 



OR 1 

T 0,0:DRAWTO 0.95:DRAWTO 159.95 
159,0: DRAWTO 0,0: RETURN 



TYPO TABLE 



Variable checksum - 7 26 158 

Line num range Code 

10 - 140 

150 - 260 

270 - 380 

390 - 500 

510 - 600 

610 - 720 

730 - 840 

850 - 890 



Length 
DS 
AV 
WM 
NU 
UB 
IR 
KV 
JD 



373 
318 
258 
395 
325 
458 
361 
184 
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Zahrcon 

Zahrcon is a modification of the familiar game of Hang-Man. This arti- 
cle shows you how to write it in BASIC with your ATARI computer. 
The game of Hang-Man has been written for every computer on the 
market today, but as an educational game it has a major flaw. It rewards the 
player (child) for failing to guess the word. The kids like to see the little "man" 
get "hung," especially when the computer enhances this outcome with a 
special graphics display and noises. 

When developing educational games for children, we should save the 
positive reinforcement for correct behavior. There should not be a reward for 
wrong answers, especially when deliberate. Zahrcon attempts to improve on 
Hang-Man by rewarding the player for guessing correctly the letters compris- 
ing the secret word generated by the computer. Each proper letter helps build 
an animated "creature," accompanied by special graphics and sound. 

Since Zahrcon is designed for children, some as young as five or six, the 
letters displayed on the screen should be large and clear. Only one word needs 
to be displayed at any time, so Graphics Mode 2 is a good choice. Upper case 
letters with numbers and symbols will be better than lower case, and we will 
need to redefine some of the symbols into graphics characters that will build 
the creature. 

To redefine a character set, we must decide which characters will not be 
needed in the program. We must also create our new characters to replace the 
old ones. Each letter, character, or symbol that is on the screen is made up of 
eight bytes. Since each byte is eight bits, a character occupies an 8 x8 matrix. If 
a bit is "on" (set to " 1 "), the corresponding pixel will be lit on the screen. Next, 
we must calculate the place in the character set where we will be putting our 
new characters. Figure 1 illustrates how the character set is placed in ROM. 
To change the character set, we must first move the character set from 



Linda Schreiber, from Garden City, Michigan, is President and co-owner of T.H.E.S.I.S., a com- 
pany specializing in educational software for microcomputers including the ATARI. Her programs have 
appeared in many publications, and she has written two books about ATARI programming, both 
available from TAB Books. 
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ROM into RAM, then replace the old characters with the new ones. In this 
program, we will replace the character set from the quotation mark to the 
period. To calculate the RAM location of the first character that will be 
changed, we multiply its position in the character set by eight. The space, 
which occupies the first eight bytes, is counted as the zero position. The ex- 
clamation point is the first position, etc. The quotation marks begin with the 
sixteenth byte of the character set. This is where our new characters will 
begin. Figure 2 shows the old character set and the new character set that will 
replace it. 

Once we have redefined our characters, we can begin our program. Our 
menu will offer two choices: to play the game or to end it. By moving the 
joystick forward and backward, we can move the arrow up or down on the 
screen. Press the red button on the joystick when the choice has been made. 

While the player is deciding whether or not to play, our creature displays 
some life. The winking and blinking is obtained by changing the character 
that is used for the creature's eyes. The character that replaces the apostrophe 
is used for both eyes, the quotation mark has been replaced with the left eye, 
the slash is now the right eye, and the asterisk is for no eyes. If the red button 
has not been pressed after a given amount of time, the program will choose 
one of the three options and PRINT it in the location of both eyes. After 
another set amount of time, both eyes will appear again on the screen. This 
same principle is used at the end of the game when the child wins. Even 
though it doesn't seem like much, this kind of enhancement can make the 
difference between a mediocre program and a good one. 

The game essentially plays like Hang-Man. The player is rewarded with 
another part of the creature whenever a letter is guessed that belongs in the 
secret word. If the child solves the word within a certain number of tries, the 
creature winks and blinks, and there is a graphics and sound reward. 





FIGURE 1 


POSITION IN 


CHARACTER 


DECIMAL CODE 


CHARACTER SET 


[SPACE] 


20 





i 


21 


1 


» 


22 


2 


# 


23 


3 


$ 


24 


4 


% 


25 


5 
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[ctrl] A 1 64 

[ctrl] B 2 65 

[ctrl] C 3 66 



a 97 97 

b 98 98 

c 99 99 

The placement of the characters in the character set does not follow their 
decimal or ATASCII codes. 

FIGURE 2 

OLD CHARACTER NEW CHARACTER 

" left eye 

# antennae 
$ left top ear 
% left bottom ear 
&_ left top head 

both eyes 

( right top head 

) left bottom head 

* no eyes 

+ right bottom head 

, neck also part of leg 

— right top ear 

right bottom ear 

/ right eye 

The character set on the left will be replaced with the character on the right. 

by Linda M. Schreiber 



r, 



REM *****.** ZAHRCON *****♦'** 
20 REM BY L.M. SCHREIBER FOR ANTIC MAY 

1982 
40 DIM W0RD$( 1 0) , YW0RDS( 10) , A( 26) 
50 GRAPHICS 1 8 : REM GRAPHICS 2 WITH NO 
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TEXT WI 
60 TOP- 
MEMORY 
70 CHBA 
T 1024 
80 OLDC 
ARTING 
NEW CHA 
90 FOR 
, SYMBO 
100 C-P 



THE 

110 

AM 

120 

130 



CHA 
POK 

HEX 
NWC 
E SPACE 
140 FOR 
N THE C 
150 REA 
THE DAT 
160 POK 
WITH TH 
170 NEX 



NDOW 

PEEK ( 106) : REM 
IS AVAILABLE 
SE-T0P-4:REM PLACE 
BYTES BELOW TOP OF 
H = 5 7344 : NWCH = CHBAS 
BYTES OF OLD CHARA 
RACTER SET 
X-0 TO 51 1 :REM MOV 
LS AND UPPER CASE 
EEK ( OLDCH+X ) : REM G 
RACTER SET FROM RO 
E NWCH+X,C:REM REL 



A 



FIND OUT HOW MUCH 



CHARACTER SE 

MEMORY 
E * 256 : REM ST 
CTER SET AND 

E THE NUMBERS 

LETTERS 

ET A BYTE OF 

M 

OCATE IT IN R 



180 

181 

182 

183 

184 

185 

186 

55 

187 

188 

55 

189 

52 

190 

191 

192 

193 

52 

200 



DAT 
DAT 
DAT 
DAT 
DAT 
DAT 
DAT 

DAT 
DAT 



T X 

H-NWC 
OR T 
X-NW 

HARAC 

D C: R 
BAS 
X,C 
NEW 
X 

255 
129 
128 
15, 
63, 
255 
252 



H+16 : REM DO N 
HE EXCLAMATIO 
CH TO NWCH+11 
TER SET TO BE 
EM READ THE N 
E 

: REM REPLACE THE OLD BYTE 
ONE 



OT REPLACE TH 

N POINT 

1 : REM BYTES I 

REPLCED 
EW BYTE FROM 



,255 , 
,66,6 
,224, 
31 ,63 
63,12 
,255, 
, 252 , 



255, 255 , 
6,36,36, 
120,62,3 
, 127 ,255 
7,127,25 
255,255, 
254,254, 



A 255, 255 , 255 , 255 , 
A 255,255,255,255, 



255, 255 ,63,63 
36,24,24 
1,31,15,15 
,0,0.0 

5,255,255, 255 
255 , 255,60, 60 
255 ,255,255,2 

127,127,63,63 
255 ,255,255,2 



DATA 255,255,255,255,254,254,252,2 



DATA 255, 126,60,24,24 

DATA 1,7,30,124,248,2 

DATA 240,248,252, 254, 

DATA 255 , 255 , 255, 255, 



,60, 126,255 

48,240,240 

255,0,0,0 

255 , 255 ,252,2 



POKE 756 , CHBASE : REM CHANGE TO THE 
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NEW 

210 

#6:" 

220 

230 

240 

250 

260 

270 

280 

= 4 : C 

290 

,P1 : 

AND 

300 

310 

IF X 

320 

330 

THE 
340 
HAS 
350 
FOR 
360 
: PI- 
OR T 
370 
F P1 
OF M 
380 
390 
ND 
400 
X: ? 
TERS 
410 
R$( 7 
420 
$(81 
430 
440 



i 450 



CHARACTE 
POKE 77, 
#" 

POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
POSITION 
= : GOSUB 
POSITION 
? #6;">" 
POSITION 
C-C+1 : IF 
IF C-75 
=1 THEN 
IF X-2 T 
POSITION 
N C-0 
IF STRIG 
BEEN MAD 
IF STICK 
MOVEMENT 
POKE 77, 
P1-4: IF 
OP OF ME 
IF STICK 
>8 THEN 
ENU 

GOSUB 99 
POKE 77, 

? #6;"H" 
#6; CHR$( 

ON THE 
FOR X-2 
2 + X) : NEX 
FOR X-2 
+ X) .NEXT 
X-INT ( RN 
READ WOR 
L-LEN(WO 



SET 

? #6 



A 



"H" 

#6 
#6 
#6 
#6 
#6 
#6 
#6 



990 

1 0, P : ? #6 
: REM ERASE 

THE NEW 

C<75-THEN 
THEN S-42: 
S-34 
HEN S-47 

4,4 : ? #6; 



POSITION 4,3:? 

$&' <- dm " 

%)*+." 

»■*■(•■ 

& , ( ran 

ZAHRCON" : P = 4 : P 1 

" ": POSITION 10 
THE LAST ARROW 
NE 
S-39 : G OTO 330 

X-INT(RND(0) *3) : 



CHR$ { S ) : IF O100 
0)-0 THEN 390: REM CHOICE 



( ) -1 5 THE 
ON JOYSTI 
0: IF STICK 
P1<4 THEN 
NU 

( ) — 1 3 THE 
P1-8 : REM C 

: GOTO 290 

0: IF P1-8 

:FOR X-2 T 

63+X) : NEXT 

RIGHT 

TO 10: POSI 

T X 

TO 9 : POSIT 

X 
D(0) *15) :R 
D$ 
RD$) : P-1 0- 



N 300: REM CHECK 

CK 

(0)-14 THEN P-P1 

P1-4 : REM CHECK F 

N P-P1 : P1-P1+4 : I 
HECK FOR BOTTOM 



THEN FE-FRE(S) : E 

10: POSITION 1 , 
X : REM PRINT LET 

TION 2,X: ? #6; CH 

ION 3 ,X : ? #6; CHR 

ESTORE 1000+X 

L/2 : REM POSITION 



33 



EDUCATION 



n 



CENTER THE QUESTION MARKS 
460 FOR X-P TO P + L-1 : POSITION X , 1 1 : ? # 
6 ; " ?'• : NEXT X:REM QUESTION MARKS FOR TH 
E LETTERS 

470 FOR X-1 TO 26: A(X)«0: NEXT X:YW0RD$ 
(1)-" " : YW0RD$(1 0)-" " : YWO R D$ ( 2 ) -YWO R D 
$:X-1 :P1«2:LT1-0:LT2=0 
480 LT-fl 

490 S»(X-1 ) * 9 + 95 + P 1 : POSITION X,P1:? #6 
: CHRS(S) : GOSUB 990 

500 IF STICK ( )»1 4 THEN POSITION X , P 1 : 
? #6 ; CHR$(S-32+A(S-96) ) : P1-P1-1 : IF P1 = 

I THEN P 1 -1 : X-X-1 

510 IF X-0 THEN X-3:P1=9 

520 IF STICK ( )-1 3 THEN POSITION X . P 1 : 

? #6;CHR$(S-32 + A(S-96) ) : P1-P1 + 1 : IF P 1 - 

II THEN P1-2: X-X+1 : IF X=4 THEN X=1 
530 IF P1-10 AND X-3 THEN P1=2:X«1 

535 IF STICK ( )-1 3 OR STICK ( ) =1 4 THEN 

POKE 77,0 
540 IF STRIG ( ) -0 THEN 560 
550 GOTO 490 

560 POKE 7 7 , : I F A( S-96 )-l 28 THEN 480 
570 A(S-96)-128: REM KEEP LETTER BLUE 
ON SCREEN 

580 S-S-32 : REM GET TRUE CHARACTER VALU 
E 

590 FOR C-1 TO LEN (WORDS ): IF ASC(WORD$ 
(C,C))-S THEN POSITION P+C-1 , 1 1 : ? #6 ; C 
HR$(S) : YWORD$(C,C)-CHR$(S) :LT=1 
600 NEXT C 

610 IF LT-1 THEN 630 
620 GOTO 740 

630 SN=50:LT1=LT1+1 : GOTO 630+LT1*10 
640 POSITION 5 , 7: ? #6; "&" : POSITION 5,8 
: ? #6 ;',•• : GOTO 880 
650 POSITION 7,7: ? #6 : " 
: ? #6 ;•' *" : GOTO 880 
660 POSITION 9,7 : ? #6 ; " 
: ? #6;" ," : G T 880 



POSITION 7,8 
POSITION 9 , 8 



670 POSITION 6,6 
680 POSITION 7 ,5 
690 POSITION 6,4 



? #6 ;"&*(" : GOTO 880 

? #6: " ," : GOTO 880 

? #6;" ) *+" : POSITION 6 
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70 

; ? 

71 

: ? 

72 
73 
1 : 
74 
75 
,8 
76 



8 : ? 



77 
,8 
78 
79 
80 
15 
81 
,4 
82 
,4 
83 
84 
P1 
85 
00 
86 
10 
87 
88 
10 
89 
90 
91 
9 
T( 
920 
930 
940 
950 
21 



? #6;"&* ( 

POSITION 

#6 ; "%" : GO 

POSITION 

#6 ;•.': G 

POSITION 

POSITION 

#6 ; CHR$( 

SN=90: LT 

POSITION 

? #6;"g": 

POSITION 

#6;"|": 

POSITION 

#6;"H": 

POSITION 

POSITION 

POSITION 

: ? #6; 

POSITION 

#6 ; "jjfl" : 

POSITION 

#6;"(" : 

POSITION 

POSITION 

#6 ; CHRS 

POSITION 

1 0: GOS 

IF STRIG 

N 0, 0: GOTO 

GOTO 860 

FOR SS=1 

,SS:NEXT S 

IF YWORD 

IF LT1<1 

POSITION 

90 : POSITIO 

RND( 1 ) *3 ) + 

S=42 : GOT 

S = 47 : GOT 

S = 34 

IF STRIG 



1 



: GOTO 88 

5,3:? #6;"$" : POSITI 
TO 880 

9,3: ? #6; •-•: POSITI 
TO 880 

7,3:? #6; :GOTO 8 

7,2: ? #6;"#" : POSITI 
S + 128) : GOTO 880 
2-LT2+1 :GOTO 740 + LT2 

14,7:? #6; 
GOTO 880 

16,7:? #6; 
GOTO 880 

18,7:? #6; 
GOTO 880 

15,6: ? #6; 

16,5: ? #6; 

,15,4: ? #6; 
:GOTO 88 

14,3:? #6; 
GOTO 880 

18,3: ? #6; 
GOTO 880 

16,3:? #6; 

16,2: ? #6; 
(S+1 28) 

P, 1 1 : ? #6;W0RD$ : SOU 
UB 990: SOUND 0,0,0,0 
(0)-0 THEN GOSUB 990 

210 

6* TO STEP -2 : SOUND 

8, 

$J 1 , L)<>WORDS THEN 4 

0, THEN 630: REM FINIS 

6, 1 : ? #6:" 
N 6,1:? #0 : • HU RRA Y I I 
1 : ON X GOTO 920, 930. 
950 
950 



ON 5,4 

ON 9,4 

80 

ON X, P 




GOTO 
POSIT 



880 
ION X, 

ND 0,2 

: POSIT 

0,SN, 

8 

H BODY 
: GOSUB 
' :X = IN 
940 



( 0)-0 THEN GOSUB 990 : GOTO 
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97 
98 
TO 
99 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 



60 POSITION 7,3:? #6 ; C H R $ ( S ) : R EM PRIN 
AN EYE 

OSUB 990 

OSITION 7,3:? #6: : GOSUB 990:GO 



>k 



OR TIME-1 TO 

00 DATA COULD 

01 DATA COUPLE 

02 DATA KENNEL 

03 DATA KINDS 

04 DATA CROCODILE 

05 DATA FRECKLES 

06 DATA BACKWARDS 

07 DATA PACKAGE 

08 DATA NICKEL 

09 DATA MECHANIC 

10 DATA LEPRECHAUN 

11 DATA ORCHESTRA 

12 DATA SKUNK 

13 DATA TRAGIC 

14 DATA ANTIQUE 



5 : NEXT TIME : RETURN 



TYPO TABLE 



V 



Variable 
Line 
10 
110 
185 
230 
320 
410 
500 
570 
670 
750 
830 
920 
1004 



c h e 
n um 



c k s urn 

range 

100 

184 

220 

310 

400 

490 

560 

660 

740 

820 

910 

1003 

1014 



438736 
Code 
NJ 
RE 
GQ. 
ZJ k 
ZZ» 
UQ 
ZF« 
XL* 
FD« 
GM« 
MJ 
BU 
DM* 



Length 
505 
432 
481 
523 
588 
556 
508 
527 
506 
572 
571 
306 
150 
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Tuning Your ATARI 



There's something about music that fascinates kids. Give them a small 
piano, drums, harmonica, and they will sit for hours creating their 
own melodies. A few years ago there was a toy piano on the market 
that contained a tape recorder. This was a big hit with my daughter. Now, she 
could not only make her own music, but listen to it afterward. 

Tuning Your ATARI uses this idea. It is a musical game for children. 
Type it in and run it, and you will see a simple menu. Choice #3 demonstrates 
the program. Choice #1 allows you to compose a tune, and Choice #2 will play 
it back. The tones appear to be made by little figures jumping on a bellows. 

Above each figure is the letter name of the tone which that bellows will 
produce. To operate the bellows, press [1], then press any key from [1] to [8]. 
Key [1] corresponds to the low C; Key [8] to high C. When a number is 
pressed, the character will jump down on the bellows, flapping his arms as the 
bellows is compressed. Once the tone is played, he bounces back up to his 
original position. The program can hold up to 100 notes. If your melody is less 
than 100 notes, press the [ESC] key and the menu will reappear on the screen. 
Press [2] to hear your melody. 

Young children will enjoy this program just to see the characters jump up 
and down while they are playing the tunes. Slightly older children will enjoy 
listening to the tunes that they have created. The letters above the characters 
do not attract attention, but are a subtle reminder of the names of the notes. 
After a while, children will begin to associate the letters with the tones of the 
character. Don't be surprised if you hear your child singing 
"A-G-F-G-A-A-A!" '.-'•-- 

Once again, in this program, we will move the character set out of ROM 
and into RAM so that we can change some of the characters. In line 70, Pl$ 
should equal h, reverse quotation marks, control D, reverse space, control 
comma, reverse 1, reverse M, reverse control Q. The characters from K to R 
are all in reverse. The last character in the string is control period. This string 
is the machine language subroutine that moves the characters. 
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Variables Used in This Program 

Pl$ = machine language subroutine. 

M$ = string holds the melody played. 

A = location of the new character set. This value is POKEd in- 

to 756 to change to the new character set. 

TONE = line number that starts the tone for the key pressed. 

WAIT = line number for the timing routine. 

Q = no function. 

CHBS = first decimal location of the new character set. 

X = no function — used in FOR . . . NEXT loops. 

C = used in READ for new character set, used for value of key 

pressed, and for position of character. 

K = counter for the note being entered or played. 

T = value of the tone to be played. 

TL = value used in timing loop. 

ROUTINE = the line number that the program goes to when entering 
the melody, or playing one back. 

by Linda M. Schreiber 



10 REM *** 



TUNING YOUR ATARI * 



20 REM BY 
ST 1982 
40 DIM PI 
50 GRAPHI 

710.100 
60 A-PEEK 
24 : REM ST 
D CHARACT 
7 P 1 $-" h 
: WAIT-500 
I NE MOVES 
80 Q-USR ( 
,A:REM IN 
90 FOR X- 

X.C: NEXT 
FROM I TO 



L.M. SCHREIBER FOR ANTIC AUGU 

$(20) ,M$( 100) 

CS 18: POKE 711 , P E E K ( 7 1 ) : POKE 

( 106)-8: POKE 204 , A : POKE 206,2 
ORE THE BEGINNING OF NEW & OL 
ER ££L5jg? 

■< »rvw;iiiJii;iM»ijn » : t o n e - 4 3 

:REM MACHINE LANGUAGE SUBROUT 

THE CHARACTER SET 
AD R { P 1 $ ) ) : CH BS-A* 2 56 : POKE 756 
STALL NEW CHARACTER SET 
CHBS + 8 TO CHBS + 71 : READ CrPOKE 

X:REM CHANGE THE CHARACTERS 

$ 
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100 DATA 0.254.124,254,124,254,124,254 

.108,0,254,254,124,254,124,254,40,108. 

0,254,254, 254, 124,254 

110 DATA 186,40,108,0,254,254,254,254, 

56,108,56,16,254,56,40,108,0,56,108,56 

,146,124,56,40 

120 DATA 0,0,56,108,56,16,254,56,0,0,0 

,56,108,56,16,124 

130 OPEN #2,4, 0,"K: ' : REM OPEN THE KEYB 

OARD FOR READ 

140 POSITION 2,9 : ? #6 ;" I i ! ! ! ! ! ! 

" : P S I T I N 2,8:? #6 ;"%%%%%%%%" : 

REM THE ! AND % ARE THE NEW CHARACTERS 

150 POSITION 2,6: ? #6 ; " c d e f g a b c 

" : REM PLACE THE TONE NAMES 

160 POKE 7 1 , 1 00 : REM RESTO RE THE MENU 

170 POSITION 2.0:? #6; T 

Q 

180 POSITION 2,2:? #6;" 



PLAY KEYBOAR 



REPEAT MELOD 



D 

190 POSITION 2,4 : ? #6:" 



PLAY EXAMPLE 



200 K-0:GET #2 , C : P OK E 710,0:REM GET TH 

E KEY PRESSED-REMOVE THE MENU 

210 IF C>127 THEN C-C-1 28 : POKE 694, 0:R 

EM INVERSE FLAG IS ON RESET IT TO NORM 

AL 

220 IF C<49 OR C>52 THEN POKE 764,255: 

GOTO 200 : REM NOT A NUMBER FROM 1 TO 4 

230 C-C-48: REM GET THEN NUMBER 

240 ON C GOTO 2 5 0,540,520,560 

250 M$--"':REM REMOVE CONTENTS OF THE S 

TRING 

260 ROUTINE-260 : K-K+1 : I F K-101 THEN 16 

0: REM ONLY ACCEPT 100 NOTES 

280 GET #2 , C : I F C-27 THEN 1 60 : REM GET 

THE KEY PRESSED-RETURN TO MENU ON ESCA 

PE KEY 

290 IF C>127 THEN C-C-1 28 : POKE 694, 0:R 

EM INVERSE FLAG IS ON RESET IT TO NORM 

AL 

300 IF C<49 OR C>56 THEN POKE 764,255: 

GOTO 200:REM NOT A NUMBER FROM 1 TO 8 
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310 C-C-48:M$(K,K)-STR$(C) : REM GET THE 

N NUMBER-PUT IT IN THE STRING 

320 C-C*2:REM OFFSET IT FOR THE PROPER 

POSITION 
330 ON C/2 GOSUB 3 5 0,360,370,380,390,4 
00,410,420 
340 GOTO ROUTINE 
350 T-121 : GOTO TONE : REM ' C 
360 T- 1 08 : GOTO TONE : REM ' D' 
370 T-96 : GOTO TONE: REM ' E' 
380 T-91 : GOTO TONE: REM ' F 
390 T-81 : GOTO TONE: REM ' G' 
400 T-72 : GOTO TONErREM ' A' 
410 T-64 : GOTO TONE: REM ' B' 
420 T-60: REM ' C 

425 REM LINES 430-450 MAKE THE CHARACT 
ER APPEAR TO PUSH DOWN ON THE BELLOW A 
NO MAKE THE TONE 

430 TL-10: POSITION C,8:? #6 ; C H R $ ( 1 3 4 ) : 
POSITION C,9:? #6 ; C H R$ ( 1 3 ) : SOUND 0,T, 
10,6:GOSUB WAIT 

440 POSITION C , 8 : ? #6 ; CHRS ( 1 3 5 ) : POS IT I 
ON C,9:? #6 ; GHR$ ( 131 ) : SOUND 0,T,10,8:G 
OSUB WAIT 

450 POSITION C,8:? #6 : C H R $ ( 1 3 6 ) : P S I T I 
ON C,9:? #6;CHR$( 132) : GOSUB WAIT 
460 SOUND 0,T, 10, 10 

470 POSITION C.8:? #6 ; CH R| ( 1 3 5 ) : POS I T I 
ON C,9:? #6; CHR$( 131 ) : SOUND 0,T,10,8:G 
OSUB WAIT 

475 REM LINES 470-490 RETURN THE CHARA 
CTER AND BELLOW TO THE CORRECT POSITIO 
N 

480 POSITION C,8:? #6 ; CHRS ( 1 34 ) : POS I T I 
ON C,9:? #6 : CHRS ( 1 62 ) : SOUND 0,T,10,6:G 
OSUB WAIT 

490 POSITION C.8:? #6 : "%" : POSITION C,9 
:? #6 :" !" : SOUND 0,0,0,0: RETURN 
500 FOR X-1 TO TL:NEXT X : RETURN :REM T 
IMING LOOP 

510 REM PLAY A SAMPLE TUNE 
520 MS-" 1 1556654433221" 
530 REM ROUTINE TO PLAY BACK THE MELOD 
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Y ENTERED 
540 ROUTINE-540 
EN C-VAL(M$(K,K 
AYING UNTIL THE 
550 GOTO 160 
560 END 



A 



K-K+1 : IF K<-LEN(M$) 
) : GOTO 320: REM KEEP 
END OF THE STRING 



TH 
PL 



TYPO TABLE 



Var 



i a b I 8 che 

Line n urn 

10 

100 

160 

250 

340 

450 



k s urn 

a n g e 



50 

40 

30 

40 



225282 
Code 
AA 
SI 
ZA 
UO 
GF 
RF 



V. 



510 



- 560 



Length 
524 
504 
517 
571 
51 1 
519 
217 
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Candle, Candle, 
Burning Bright 

Most computers owned by schools are used in the math department, 
a recent survey showed. Computer science ranked second. The 
prime use for computers in any school is drill and practice. 

In drill and practice, the computer gives the student questions. If the ques- 
tions are answered correctly, the student is rewarded. If the answer is wrong, 
the correct answer appears on the screen. Some educators frown on this, call- 
ing it "electronic flash cards." Others praise such programs, stating that they 
aid the teacher by reinforcing facts that children need to know. 

Another type of educational software is the tutorial, where the computer 
"teaches" a particular lesson. Some tutorial programs make the computer an 
electronic page-turner; others allow the students to learn at their own pace, 
test the students, then review material or present new material based on the 
results of the test. 

Some programs are advertised as educational games. They present learn- 
ing as a fun experience. Some vendors will advertise a game as educational if 
any single thing is learned. Arcade games are even called educational because 
they teach "hand-eye coordination." Maybe they do, but does this mean that 
they are truly educational games? 

There is another educational category — simulation. This is one area 
where computers could be used to better advantage. There are very few good 
simulation programs available. 

This program simulates a science experiment. A candle is drawn on the 
screen, and a jar is hovering above it. The program is very simple. To light the 
candle, press [SELECT]. To lower or raise the jar, press [START]. The candle 
cannot be lit if the jar has been lowered, but the jar can be lowered or raised 
whether or not the candle is lit. The white dots that move around on the 
screen represent the oxygen in the air. 

This is a fairly standard experiment, and with a program like this, young 
children can learn about their environment safely. To light the candle, press 
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[SELECT] and hold it down until the flame appears above the candle. The 
oxygen dots will move around on the screen. The flame on the candle will 
flicker because of the air movement. 

Hold down the [SELECT] button until the jar starts to move. Once the 
jar is over the candle, the oxygen will begin to disappear. The oxygen still 
moves in the jar and the flame will flicker. When all the oxygen is used up, the 
flame will go out. 

Hold down the [START] button until the jar starts to move up again. 
Notice that the oxygen dots will appear around the candle. If the jar is raised 
just before all the oxygen is used up, more oxygen dots will gather around the 
candle, and the flame will not go out. 

This program uses the Player/Missile graphics for the jar, candle and the 
flame. Lines 50 and 60 contain the machine language to move the player (jar) 
up and down. Be sure that these lines are typed in exactly, or the program will 
not work correctly. 

Variables Used in This Program 

UP$ = machine language subroutine to move player up. 

DOWN$ = machine language subroutine to move player down. 

A = free memory less 8K. 

PMBASE = beginning of the memory for players and missiles. 

CANDLE = memory location of where the candle will be drawn. 

FLAME = memory location of where the flame will be drawn. 

JAR = memory location of where the jar will be drawn. 

C = column where oxygen will be plotted. 

R = row where oxygen will be plotted. 

OS(50,2) = column and row of oxygen on screen. 

OJ(10,2) = column and row of oxygen under jar. 

FL = state of flame (1 =flame lit, 0=flame out). 

JLJ = state of jar (1 =jar down, 0=jar up). 

OX = amount of oxygen visible. 

F = which of the three flames to draw. 

B = data being read. 

X,Q,M = dummy variables. 

by Linda M. Schreiber 
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10 REM *** 

* * * 

20 REM BY 

DEC. 1982 
30 DIM 0S( 
(13) 

40 A-P E EK ( 
PLAYER/MI 
NEEDS 4K 
50 UP$-"h 
60 00WNS- 
70 GRAPHIC 
TEXT WIND 
B0 POKE 54 
ANTIC WHE 
90 POKE 55 
P/M GRAPH 
ON 

POKE 
POKE 
POKE 
POKE 
POKE 
FOR 



7 
7 
7 
7 
7 
X- 



0:NE 



100 
1 10 
120 
130 
140 
150 
OKE X 
APHICS 
160 COLOR 
DRAWTO 40, 
170 POKE 7 
180 CANDLE 
CANDLE IN 
190 RESTOR 
OKE CANDLE 
DATA FOR C 
200 POKE 5 
CREEN 

210 FLAME- 
FLAME IN P 
220 JAR-PM 
E+1536)/25 
( ( PMBASE+1 
230 POKE J 
R + X, 1 29 : NE 



BURNING CANDLE SIMULATION 

LINDA M. SCHREIBER FOR ANTIC 

50,2) ,OJ( 10,2) ,UP$( 13) , DOWNS 

1 06 ) -3 2 : REM SET ASIDE 2K FOR 
SSILE GRAPHICS - GRAPHICS 7 



□ H M^ rMHPwe: 



H1MH rMJPwCI 



h 

S 7: REM HIGH RESOLUTION WITH 

OW 

279, A: PMBASE-A* 256 : REM TELL 

RE P/M GRAPHICS BEGIN 

9,62: POKE 53277 , 3 : REM ENABLE 

ICS FOR SINGLE LINE RESOLUTI 

04, 1 04 : REM COLOR OF FLAME 
05 , 200: REM COLOR OF CANDLE 
06, 120: REM COLOR OF JAR 
08, 154 : REM COLOR OF OXYGEN 
09,8: REM COLOR OF DISH 
PMBASE+1 024 TO PMB AS E+2 04 3 : P 
XT X: REM CLEAR MEMORY FOR GR 

2: PLOT 100,75 : DRAWTO 110,70: 
70: POSITION 50,75 
65 , 2 : XI 1lp#S,l,l,"l:" 
-PMBASE+1 426 : REM LOCATION OF 

P/M MEMORY 
E 510: FOR X-0 TO 25 : READ B: P 
+ X , B : NEXT X:REM READ IN THE 
ANDLE 
3249, 120 : REM PUT CANDLE ON S 

PMBASE+1 1 57 : REM LOCATION OF 
/M MEMORY 

BASE + 1606: POKE 2 06 , I NT ( PMB A S 
6: POKE 205, ( PMB A S E + 1 5 3 6 ) -I NT 
536) / 2 5 6 ) * 2 5 6 : REM JAR IN P/M 
AR.255: FOR X-1 TO 50: POKE JA 
XT X: REM DRAW THE JAR 
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/ 2 4 POKE 53258, 3 : POKE 53 25 0, 1 7 : R EM PU 

T THE JAR ON THE SCREEN 

250 COLOR 1 : F R X-1 TO 50:REM PUT OXYG 

EN ON SCREEN 

260 C-INT( RND( 1 ) * 1 6 ) : REM COLUMN OF OX 

YGEN 

270 R-INT(RND( 1 ) *80) : REM ROW OF OXYGE 

N 

280 IF C>60 AND C<90 THEN IF R>43 THEN 

2 70 : REM DON'T PLACE IT IN THE JAR 
290 IF C>40 AND C<110 THEN IF R>69 THE 
N 270: REM OR ON SAUCER 

300 0S(X, 1 )-C : OS (X, 2 )-R: REM PLACE THE 
OXYGEN LOCATION IN THE ARRAY 
310 PLOT C . R : NEXT X:REM DO IT 50 TIMES 
320 FOR X-1 TO 1 : REM OXYGEN IN JAR 
330 C-INT(RND(1)*23)+63:R-INT(RND(1)* 
23 )+46 : REM AREA OF JAR 

340 OJ (X, 1 )-C : OJ (X , 2 )-R : REM PLACE IN J 
AR ARRAY 
350 PLOT C,R:NEXT X:OX-10:REM DO IT 10 

TIMES 

360 POKE 752,1:? 'PRESS EWlffi TO MOVE 

JAR":? :? "PRESS MIMHI TO LIGHT CANOL 

E" : : REM INSTRUCTIONS 

370 IF P E E K ( 53279 )=7 THEN 400:REM NO K 

EY PRESSED - MOVE OXYGEN & FLAME IF LI 

T 

380 POKE 7 7 . : I F P E E K ( 5 3 2 7 9 ) -5 AND FL- 

AND JU-0 THEN 4 1 : REM TURN OFF ATTRA 

CT - LIGHT FLAME? 

390 IF PEEK( 5 3 2 7 9 ) =6 THEN GOSUB 43 : I F 

JU-0 THEN COLOR 1 : F R X-1 TO 1 : PLOT 
OJ ( X, 1 ) ,OJ (X, 2) : NEXT X 

400 IF F L = THEN GOSUB 54 : G OTO 3 70 : RE 
M FLAME NOT LIT 

410 FL-1 : POKE 5 3 2 4 8 , 1 20 : G OSU B 520:REM 
ANIMATE FLAME ON SCREEN 
420 GOTO 370 

430 IF JU-0 THEN FOR Q-1 TO 5 1 : M-USR ( A 
DR( DOWNS) ) : NEXT Q : J U- 1 : R E T U R N :REM MOV 
E JAR DOWN 
440 FOR Q-1 TO 5 1 : M-U S R ( A D R ( U P $ ) ) : N E X T 
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r 

Q 

50 
51 
, 1 
26 
52 
TH 
53 
PO 
DA 
53 
53 
53 
53 
S 

HE 
54 

N 

55 
JA 
56 
23 
T 

57 
58 
OS 
GE 
59 
TH 
60 
N 

61 
,R 



: JU 
R 
D 
26 , 
. 12 
F 
REE 

R 
KE 
TA 

1 D 

2 D 

3 D 
9 R 
ON 

N T 
I 
J ( D 
FL- 
I 
R 

F 
) + 6 
0J( 
C 
F 
(X. 
T A 
R 
EN 
I 
590 

:NE 



-0 : OX- 
EM DAT 
ATA 8, 
126,12 
6.126, 
=INT(R 
FLAME 
ESTORE 
FLAME + 
FOR FL 
ATA 16 
ATA 8, 
ATA 32 
EM DEC 
AND JA 
HERE I 
F JU-1 
X,1 ) ,0 
0: POKE 
F OX-0 



1 0: RET 

A FOR 

8,12,2 

6,126, 

126,12 

ND( 1 ) * 

POSIT 

530 + F 

X,B : NE 

AME 

,8,12, 

4,6,12 

,16,24 

REASE 

R IS D 

S NO 

AND F 

J ( OX , 2 

53248 

THEN 



URN :REM MOVE JAR UP 

CANDLE 

8,28,30,62,62,126,126 

126,126,126,126,126,1 

6,126,126 

3)+1 :REM PICK ONE OF 

IONS 

: F R X=0 TO 9 : READ B: 

XT X: REM READ IN THE 

28,62,62,28,24.8,4 

,60,60,28,48,16,8 

,56,30,30,12,12,4,2 

THE OXYGEN IF FLAME I 

OWN . FLAME GOES OUT W 

XYGEN 

L-1 THEN COLOR 4: PLOT 

) : OX-OX-l :IF OX-0 THE 

, 0: RETURN 

580: REM NO OXYGEN IN 



OR X-1 TO OX 
3 : C-IHT { RN D ( 
X, 1 ) ,0J(X,2) 
OLOR 1: PLOT 
OR X-1 TO 50 
1 ) . OS ( X . 2) ; C 

NEW COLUMN 
-IHT(RMD( 1 ) * 
IF R>43 THEN 



STEP 2 : R-INT 
1 ) * 23 ) +46 : COL 
: J ( X . 1 )-R : J 

R,C : NEXT X 

STEP 5 : COLOR 
-INT(RND( 1 ) *1 

80) : IF C>60 A 
590: REM IN T 



F C>40 AND C<110 THEN IF 
: REM ON THE SAUCER ! ! 
S(X,1 )-C:0S(X,2)-R:C0L0R 
XT X : RETURN 



TYPO TABLE 



( RN D 
OR 4 
(X.2 

4: P 
60) : 

ND C 
HE J 
R>69 



1)* 

PLO 
-C 

LOT 
REM 

<90 
AR! 
THE 



1 : PLOT C 



Variable checksum - 3672 5 5 



^ 



Line 
10 
1 10 



nuin 



range 
- 1 



200 



Length 
MN 
10 



529 
543 



46 



CANDLE, CANDLE, BURNING BRIGHT 



210 


- 280 


PO 


522 


■\ 


290 


- 370 


MW 


571 




380 


- 440 


XH 


507 




500 


- 540 


ON 


587 




550 


- 610 


ZS 


552 


) 
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Some Sound Advice 



The SOUND statement in Atari BASIC is very powerful. Its ability to 
modify tone, distortion, and volume for each of four voices has been 
put to good use elsewhere in this book. One of the problems with the 
SOUND statement is that using it extensively slows down program execu- 
tion. While this is true of BASIC statements in general, with the SOUND 
statement there is an easy alternative — SOUND registers. SOUND registers 
are memory locations which control properties (tone, distortion and volume) 
of the ATARI'S sound. 

Memory Location Function 

53760 Tone of Voice 1 (SOUND 0) 

53761 Distortion and Volume of Voice 1 

53762 Tone of Voice 2 (SOUND 1) 

53763 Distortion and Volume of Voice 2 

53764 Tone of Voice 3 (SOUND 2) 

53765 Distortion and Volume of Voice 3 

53766 Tone of Voice 4 (SOUND 3) 

53767 Distortion and Volume of Voice 4 

53768 Tone "clock" control 

The even-numbered memory locations (53760, 62, 64, 66) control the 
TONE, i.e., which note the ATARI will play. This is identical to the second 
number in a SOUND statement. For example, to get the same tone as 
SOUND 0, 100, 10, 8 you would POKE 53760, 100. This specifies Voice 0, 
note 100. But what about distortion and volume? The odd-numbered 
memory locations (53761, 63, 65, 67) take care of these two characteristics for 
each voice via the following relation: 

16*DISTORTION +VOLUME 
where DISTORTION is the third number in the SOUND statement (10 in 
our example) and VOLUME is the fourth number (8 in our example). 

The equivalent POKE in our example is 16* (10) +8 = 
168, and you would specify POKE 53761, 168. Try it. Type in: POKE 53760, 
100:POKE 53761, 168 [RET]. The other pairs of registers work the same way. 
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You can turn off the note by specifying zero in either TONE or 
DISTORTION-and-VOLUME registers. 

Memory location 53768 is an interesting one. The ATARI maintains two 
internal "clocks" which it uses to measure the frequency of the sound wave it 
generates. The two clocks run at different speeds. Switching clocks changes 
the frequency (and thus the tone) of the sound. Bit 1 of memory location 
53768 controls which "clock" the ATARI uses to produce its sound. Normally 
bit 1 is off, and the ATARI's sounds correspond to the tables in the reference 
manual. Turning bit 1 on (POKE 53768, 1) selects the slower clock, and alters 
the tone produced. Toggling bit 1 off and on will switch all four voices up and 
down for a pretty good "alarm" effect. Try this loop: 
FOR N =0 TO 255:POKE 53768, N: NEXT N 
This turns bit 1 off and on very nicely without having to worry about setting 
and resetting the bit. The reason this works is that the values jump back and 
forth from odd to even, turning bit 1 on and off. 

How much faster is POKE than SOUND? Well, let's try an example. The 
following program downloads the ROM character set into RAM so it can be 
modified. With no sound (leave out the SOUND statements in line 30), this 
process takes 15.7 seconds. There are much faster ways to do this, but you can 
use this method until you feel confident. Fifteen seconds is a long time to sit 
looking at a computer doing nothing visible. Most people start getting 
nervous and wondering if "Lockup" has struck again. Let's add some sound to 
assure the user that something is happening. 

10 POKE 106,PEEK(106)-4:POKE 53761, 168:POKE 

53763, 168:GRAPHICS 
20 CHBASE =PEEK(106):OLDCH =57344:NWCH = 

CHBASE*256 
30 FORX=0TO 1024:C=PEEK (OLDCH+X):POKE 

NWCH+X,C:SOUND 0,C,10,4:SOUND 1,X,10,4 
40 NEXT X 

Downloading the character set now takes some 25 seconds. If we try the 
following instead, substituting POKEs, the character set loads in about 20 
seconds. 



10 POKE 106,PEEK(106)-4:POKE 53761 ,168:POKE 

53763, 168:GRAPHICS 
20 CHBASE =PEEK(106):OLDCH =57344:NWCH = 
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CHBASE*256 
30 FORX=0to 1024:C=PEEK(OLDCH+X):POKE 

NWCH+X,C:POKE 53760,C:POKE 53762,140 
40 NEXT X 

Note that X, which varies from to 1024, can be used as an input to the 
SOUND statement — each time it rolls over a multiple of 255, it starts over at 
(thus 256 is 0, as is 513 and 769). This is not true of the POKE statement, so a 
constant was used. Doing a calculation to keep everything in range (such as 
POKE 53762, X/4) slows things down still further (about 28 seconds), and 
isn't a good idea. 

Finally, various sources give the equations that relate tone to the internal 
clocks and note frequency. While these equations are beyond the scope of this 
article, they can be useful to those composing music on their computer. 

by Dave Plotkin 



Audio While You CLOAD 

"Your mission, Jim, if you choose to accept it. . ." 

There is no question that the microcomputer community dislikes com- 
puter cassettes — and with good reason. In the early days of com- 
puting when hobbyists had no other storage medium, hours of frus- 
tration were spent trying to save or load programs from cassettes. When disk 
storage became available, many hobbyists gladly junked their cassettes. Some 
manufacturers have quietly stopped supporting their cassette systems. 

Unfortunately, this has prejudiced software developers against the use of 
the Atari cassette system. However, I consider this component one of Atari's 
strongest points. The Atari system, unlike most others, uses a cassette player 
made specifically to run on the ATARI. 

]ohn Victor is the president of Program Design, Inc., a software company in Greenwich, Connec- 
ticut, specializing in games and educational software. Several of their cassette-based products use a voice 
track on the cassette to enhance the program during loading or play of the game. 
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The advantage is this: the Atari cassette is recorded in stereo. The digital 
information for programs is stored on the right track. Sound recorded on the 
left track is played back through the user's TV set. The existence of the left- 
side sound track means that recorded voice or music can be played at any time 
while the computer is on — either during the running of a program or during 
the loading of a program. 

One technique that we use at PD1 is to put voice instructions on the left 
sound track to play while a cassette is loading. This means that we do not have 
to put all instructions for using the program in the program itself, reducing the 
memory requirements. At least half of the Atari market consists of 16K 
ATARI 400 computers. By keeping memory requirements within 16K (and 
providing programs in cassette format) a software publisher will reach a 
greater percentage of the Atari market. 

The existence of a voice track gives the program user something to do in 
the time it takes to load the program. This can set the mood for the game itself. 
In MOONBASE IO we use the voice to give the player a "recorded message" 
from Earthbase control as to the nature of the mission (just as in "Mission Im- 
possible"). Most of the four and a half minutes it takes to load the program is 
spent doing something related to playing the game. 

To create and use the voice track during the cassette load, several things 
have to be done. First, the sound that the computer makes during a cassette 
load has to be turned off. This is done with a POKE 65,0. This can be put in a 
loader program placed first on the cassette. This loader program will contain a 
visual display, the POKE 65,0, and a CRUN routine that will automatically 
load and run the main program. 

The following is the CRUN routine. POKE 764,32 will automatically pro- 



r 



1000 REM ROUTINE TO CRUN NEXT PROGRAM 

1002 DIM A$(20) 

1005 POKE 65,0 

101 POKE 764,32 

1020 FOR L P 1 TO 19 

1022 READ X: A$ ( LOOP , LOOP) CHR$(X) 

1024 NEXT LOOP 

1030 X -USR ( ADR ( A$ ) ) 

1040 DATA 162,253,154,169,183,72,169,8 

4,72,169,4,32,182,187,169,255,76,4,187 
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duce a carriage return so that the next program will begin loading. The ASCII 
values in the REM statement are those for the machine language CRUN 
routine found in the USR routine. (USR routines are used to run machine 
language from BASIC.) 

After the first program is loaded and run, instructions will be put on the 
screen and the next program load started. Any recorded sound in the left 
channel will now be heard clearly in the TV set. Positioning of the recording 
tape is important. 

Atari programs have a two-second string of zeros recorded at the end of 
each cassette program. The programs stop loading two seconds before the 
recorded program ends. This means that the recorded voice or music can 
begin just before the first program ends, but must end two seconds before the 
main program's record track. Otherwise the computer is going to turn off the 
voice track before it finishes. 

The Atari 410 Program Recorder can play back voice and music but can- 
not be used to record it. This must be done on a stereo tape deck or a reel-to- 
reel recorder. For the sake of quality, master tapes from which cassettes are 
going to be manufactured should be made on reel-to-reel recorders only 1 , 
Cassette recorders do not produce good enough sound to be copied. There is 
just too much speed variation and lack of separation between the two stereo 
tracks on cassette masters. If the user only wants a few copies, then a stereo 
tape deck is okay, but this is not acceptable for commercial software pro- 
ducers. 

The first step in making the master tape is to record the programs. The 
ATARI computer makes no provision to connect the ATARI to a stereo 
recorder, so the programmer will have to rig up something. This is not very 
difficult. The "data out" and the "ground" pins in the peripheral connector 
are the ones that send the program signal to the recorder. 

These can be connected to the recorder with a cable that has alligator 
clips on one side and an RCA connector on the other. A local Radio Shack or 
audio dealer may have this, or an audio technician can make one. The 
alligator clips are then connected to the ATARI pins 5 and 6, and the RCA is 
plugged into the right recording jack of the stereo unit. It's not a bad idea to 
put tape over the alligator clips to keep them from touching the wrong 
points. 

Before recording, start the computer outputting and set the VU meter 
on the recorder at between 7 and 5. Also note the reading on the tape 
counter. 
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SERIAL I/O PORT CONNECTOR 

1 4 6 8 10 17 



1. Clock In 

2. Clock Out 

3. Data In to Computer 

4. Ground 

5. Data Out of Computer 

6. Ground 



13 5 7 



11 13 



7. Command 



8. Motor Control 



9. Proceed 

10. + 5 / Ready 

1 1 . Audio In 

12. + 12 



13. Interrupt 



Record the loader program. The computer will lay down 18 seconds of 
pilot tone before the program is recorded. However, after the program is 
loaded, the computer will continue to output pilot tone. Listen to the com- 
puter for an indication of when the program stops, and immediately shut off 
the recorder. Next, record the main program. Using the tape counter, keep 
track of where on the tape the second program is. 

The voice (or music) can now be recorded. To record voice, connect a 
microphone to the left -side "mic" jack. The recorder must be one that will 
not erase the right track while the left one is being recorded. This can be 
determined quite simply — there must be a separate record button for each 
track. 

Using the tape counter as a guide, rewind the tape. Then begin recording 
voice instructions and /or music on the left track. This must be finished two 
seconds before reaching the end of the recorded program (because that is 
where the computer is going to stop when the program is loading). 

It will also help to have an appropriate graphic on the screen while the 
main program is being loaded. If directions are being given, the directions 
might also appear on the screen at the same time. 

This technique can enhance a program and make it more interesting. It 
also adds a "professional" touch to cassettes. 

by John Victor 
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Music with BASIC 

Two songs and a tutorial for would-be composers. 

This tutorial and example program demonstrates one of the many ways 
of playing music using Atari BASIC. Those of you with no knowledge 
of music may simply type in the program and follow the instructions 
on the screen. If you have some knowledge of music, and you'd like further 
information on how this program works, read on. 

The program begins with a GOTO 310. This bypasses the main program 
loop, subroutines, and song DATA, and brings us to our setup and screen 
display. Here we specify GRAPHICS 0, set the background color at random, 
turn off the cursor, set the left margin at 5, set the print tab width at 7, and 
NP=0. The numeric variable NP will be used to count the Notes Played. 
Lines 320-360 display our program description, author name, and user 
options. POKE 764,255 tells the computer to ignore the last key pressed. 

The routine beginning at line 370 and ending at line 390 waits for the 
user to press a normal video 1, 2, or 3. Nothing will happen until one of these 
keys is pressed. The checking is done by PEEKing at location 764 until it con- 
tains a 31, 30, or 26. These are the internal keycodes for 1,2, and 3. By check- 
ing the last key pressed, we eliminate the need to press the [RETURN] key. 

Once we have a valid key, we position the cursor at the appropriate 
option number on the screen, and print that number using inverse video. 
The numeric variable PLAY is used to store the number of notes we are 
about to play. 

If option 1 was selected, we do not have to use a RESTORE command 
since the DATA for this song preceeds any other DATA. If either of the other 
options has been chosen, we use the RESTORE command to point to the 
line number where the appropriate DATA begins. 

Jerry White lives in Levittoum, New York, and is a prolific writer of BASIC and assembly language 
programs for the ATARI. He hew many commercial products on the market, including Poker SAM and 
Chatterbee, from Don 't Ask Software, that use the intriguing voice-synthesis-on-a-disk known as Soft- 
ware Automatic Mouth for S.A.M. for short). 
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If the number 3 key was pressed, we also must set a flag to indicate a spe- 
cial condition. Since this program reruns itself when a song is over, we set the 
variable EXIT = 1 in line 390 before GOTO 40 instruction. 

Look at line 40. In English, it says that if the number of Notes Played is 
equal to the number of notes we wanted to PLAY, then go to line 420. Line 
420 begins with "IF EXIT." This is the same as saying "IF EXIT < > 0". So IF 
EXIT=0, the program falls through to line 430 where we have a RUN com- 
mand. If EXIT < >0 then we reset the left margin, turn the cursor back on, 
tell the user that BASIC has control, and END the program. 

Now that we know how the program starts and how it ends, let's see 
what happens in between. Let's assume you have chosen option number 3. 
As you pressed the number 3 key, an ASCII 26 was automatically stored in 
location 764. At line 390 we hit a true condition and highlight the number 3 
on the screen, set PLAY = 10, RESTORE 290, set EXIT = 1, and GOTO 40. 

The routine from line 40 through 170 is called the main program loop. 
We haven't played any notes yet so NP=0 and we fall through to line 50. 
Here we read two bytes of DATA. This will result in the variable PITCH 
being set to 91 and DUR being set to 12. Remember, we are reading the 
DATA that begins in line 290. Also in line 50 we add 1 to NP 

In line 60, we see if PITCH =0, and if it is, we GOTO our REST routine 
which begins at line 90. PITCH =91 so we GOTO our SOUND routine at 
line 130. 

We will POKE the value of DUR into a countdown timer at RAM loca- 
tion 540. Countdown timers count backwards at the rate of 60 per second 
until zero is reached. In other words, when we POKE 540.DUR, since 
DUR = 12, exactly 12/60 of a second later, the countdown timer will reach 
zero. In that same line we calculate the pitches we will use in SOUND 
registers 1 and 2, and store the value of PITCH + 1 in PI and PITCH- 1 in P2. 

At line 140 we turn the tables and set DUR=PEEK(540), and check to 
see if it is equal to zero. At this point it isn't zero yet, so we continue on to 
line 150 and see if DUR > 6. Six will be our maximum volume of each of 
three SOUND commands. In any case, we continue on to execute three 
SOUND commands, then go back to line 140 and check the value in our 
countdown timer again. We stay in this loop until we find that our count- 
down timer has reached zero. 

When PEEK(540)=0, we GOTO line 170 where all sounds are turned 
off", and we can finally go back to where this whole thing started, line 40. 
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Remember line 40? That's the main program loop. We have played one 
note and have nine to go. But what if the PITCH is a 0? When we want no 
sound for a period of time (a REST), we enter a zero as the pitch, and use the 
routine beginning at line 90 to rest for the period of time specified by DUR. 
By the way, 60ths of a second are also known as "jiffies." 

By using DUR as the volume value in the SOUND commands, we get a 
slight decay or decreasing volume at the end of each note. By using two addi- 
tional SOUND channels, and setting their frequency levels slightly higher 
and lower than the desired pitch, we achieve a richer, fuller sound. 

This program demonstrates only one method of playing music on your 
computer. BASIC can be used to play true four-part harmony and even dis- 
play the lyrics of your songs on the screen at the same time. This is demon- 
strated by Swifty Software's Singalong Sound & Music Tutorial package. 

Atari's Music Composer provides another way to play music and dis- 
plays musical notes on your screen. Unfortunately, you can't put the Music 
Composer Cartridge and BASIC in at the same time. But I found a way 
around that problem too. 

RD.I.'s Music Box will convert your Music Composer files and play 
them for you using vertical blank assembler subroutine. This is done while the 
BASIC cartridge is installed. The best part is that once the music begins, 
BASIC is at your disposal. You can even write a BASIC program while the 
music continues to play. 

The possibilities provided by your computer's audio channels are almost 
limitless. Take advantage of this and let us know what you come up with. 



by Jerry White 



r. 



REM ATARI BASIC MUSIC by Jerry Whit 
5/4/82 

GOTO 310 

REM MAIN PROGRAM LOOP 

IF NP-PLAY THEN 420 

READ PITCH , DUR : NP-NP+1 

IF PITCH-0 THEN 90 

GOTO 130 

REM REST TIME DELAY SUBROUTINE 

POKE 540, DUR 
IF PEEK(540)<>0 THEN 100 
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GOTO 40 * 

120 REM PLAY NOTE SUBROUTINE 
130 POKE 540. DUR : Pl-PITCH + 1 : P2-PITCH-1 
140 DUR-PEEK (540) : I F DUR-0 THEN 170 
150 IF DUR>6 THEN DUR-6 

160 SOUND 8, PITCH , 10, DUR : SOUND 1.P1.10 
, DUR : SOUND 2 , P 2 , 1 , DU R : GOTO 140 
170 SOUND . , . : SOUND 1 , , , : SOUND 
2,0,0,0: GOTO 40 

180 REM DATA FOR POP GOES THE WEASEL 
190 DATA 121,6,91,6,0,6,91,6,81,6,0,6, 
81,6,72,6,60,6,72,6,91,6,0,6 
200 DATA 121,6,91,6,0,6,91,6,81,6,0,6, 
81,6,72,18,0,6,91,6,0,6 
210 DATA 121,6,91,6,0,6,91,6,81,6,0,6, 
81,6,72,6,60,6,72,6,91,6,0,18 
220 DATA 53,12,0,12,81,12,0,6,68,6,72, 
18,0,6,91,12 

230 REM DATA FOR TEN LITTLE INDIANS 
240 DATA 121,18,121,6,121,6,121,18,121 
,6,121,6,96,18,81,6,81,6,96,6,96,6,121 
,18 

250 DATA 108,18,108,6,108,6,108,18,108 
,6,108,6,128,18,108,6,108,6,128,6,128, 
6,162,18 

260 DATA 121,6,121,6,121,6,121,6,121,1 
8.121,6,121,6,96,18,81,6,81,6,96,6,96, 
6,121,18 

270 DATA 108,18,108,6,108,6,162,6,162, 
6,162,18,121,48 
280 REM DATA FOR EXIT ROUTINE 
290 DATA 91,12,0,6,121,6,128,6,121,6,1 
08,24,121 ,24,0,24 ,96,24,91,24 
300 REM SETUP/DISPLAY/OPTIONS 
310 GRAPHICS : SETCOLOR 2 , R NO ( ) * 1 6 , : 
POKE 752,1:P0KE 8 Z . 5 : P OK E 2 1 , 7 : N P-0 
320 ? :? :? , "ATARI BASIC MUSIC" 
330 ? : ? ," by Jerry Wh i 1 8 " : ? : ? 
340 ? :? "Type 1 for POP GOES THE WEAS 
EL" 

350 ? :? "Type 2 for TEN LITTLE INDIAN 
S" 
360 ? :? "Type 3 for PROGRAM EXIT" ; : PO 
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7 64 ) -3 1 THEN POSITION 
764, 255 : PLAY-43 : GOTO 
764 )-30 THEN POSITION 
Y-44 : RESTORE 24 : G 0T0 
764 ) -26 THEN POSITION 



1 



E 764,255 
OTO 40 



0,1 
PL AY-1 : RESTORE 



/RERUN 

THEN POKE 82 , 2 : POKE 

IC" : ? "IS" : : END 



TYPO TABLE 



752,0 



Variable checksum 
Line num range 



10 
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220 

320 

420 
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JT 
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310 

410 

430 



153160 
Cade 
275 
NW 
GO 
OY 
RE 



Length 

521 
602 
509 
76 
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Ultra Sound 



Imagine sitting in your easy chair in front of the color television set with a 
stereo speaker to your right and left. The Star Raiders cartridge is in the 
computer. After selecting your destination you press [H]. A slight rumble 
emanates from the speakers as the engines engage. From the forward view, you 
see the stars moving faster and faster towards you as the sound increases to a 
roar. You explode into hyperwarp and the sound from the speakers rattles 
your chair. RED ALERT! 

You reach for the joystick to direct your photons but it's too late! You 
receive a direct hit from Zylon fire. The room echos from the impact, the 
vibration causes little nick-nacks to fall from the cabinet shelves. DAMAGE 
CONTROL! You can hear the cries of your injured crew reverberating 
through your star cruiser. No, it's your neighbors yelling for you to turn down 
your stereo. What excitement! Maybe next time you should use the head sets. 

You can make a simple, inexpensive cable that will channel audio from 
your ATARI 800 to your stereo speakers. This article will show you how. 

The cable will attach to most stereo systems or radios. Unfortunately, the 
other end will only attach to an ATARI 800 computer, where the monitor jack 
is external. The ATARI 400 would require disassembly, interior soldering and 
case modifications. There are three components that you need to buy. We 
have listed these items, their approximate cost, a possible distributor, and 
comments in Table 1 . 



Item 



5-Pin Audio /Video Plug 

RCA Type Phone Plug 

10 Ft. PVC Insulated Cable 



Table I. List of Components 
Distributor Price Comments 



Radio Shack (#274-003) 


$1.49 


Shielded 


APX (#90002 ;$2. 49) 






Radio Shack (#274-339) 


$1.39 


Shielded 


Ask Local Electrician 


$4.61 


0.25" O.D., shielded 
2AWG 10-12 conductor 



Tota 



$7.49 
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The 5-pin Audio /Video Plug is sometimes called a 5-Pin DIN plug. The 
outer jacket can be made of plastic ($1.49) or metal ($2.49). It contains five 
small pins mounted through an insulator panel and arranged in a 180-degree 
arc. There is a small notch at the top for alignment purposes (Figure 1.) 



Figure 1. 

5-Pin Audio /Video plug configuration 

(outer facing side) 



Notcl 



Gr 




Audio 
Output 



One side of the insulator panel usually has small numbers printed on the 
board. These numbers correspond with the numbers in Figure 1. For our pur- 
poses, it is important to know that the ATARI 800 uses pin 3 as the audio out- 
put and pin 2 as the ground. The RCA-type phono plug has an outer jacket of 
metal. The inner workings contain one large pin held in place by insulation. 
These units are usually sold in pairs since the typical use is for a two channel 
stereo input. The large pin is the audio input and the outer jacket is the 
ground. 

PVC insulated cable is sometimes called telephone cable. There are hun- 
dreds of different types of cables to choose from. We recommend a tinned cop- 
per, PVC insulated, conductor cable with 22-24 AWG stranded drain wire. 
Wire gauges much larger than 22 (i.e. 18, 16, 14 . . .) are very stiff and difficult 
to work with. Stranded wire should be color coded. The cable should be 
jacketed in a chrome PVC with an outer dimension (O.D.) of 0.25 inches to 
ensure a snug fit with our plugs. If you choose a smaller cable (e.g. speaker wire), 
you run the risk of pulling the wires out of the plugs or crimping the cable 
when you move the computer. If you have your computer in an area of severe 
electrical interference, we suggest that you purchase a cable with aluminum- 
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polyester shielding. The minimum length for your cable should be 10 feet to 
allow for some flexibility in where you can place your components. 

Next, gather the necessary tools for soldering. You will need a pencil-tip 
soldering iron with a heating element of 25 to 35 watts. The best solder for this 
application is an alloy of 40 percent tin and 60 percent lead with a resin flux 
core. This is sometimes referred to as television or electrical repair solder. In 
addition, you will need a razor, a needle-nose pliers, a wire cutter, a clampable 
heat sink and a clean, well-lighted work area. Remove the outer jacket from 
each plug and slide the jackets onto opposite ends of the cable. With a razor, 
carefully strip away 3 /» " of the PVC cable cover from each of the cable ends. If 
your cable contains more than two color-coded wires, snip off the extra ones 
to make them flush with the PVC cable cover. Compare the ends of the cable 
side-by-side to make certain that the color codes are an exact match. Strip 
away l A " of the color -coded PVC from each wire (Figure 2). You are now ready 
to solder. 



Figure 2. Cable Assembly. 



Outer jacket of plug 
Outer jacket of cable 




Exposed wire 
Color-coded jacket of wire 

Hold the inner workings of the plugs with a pliers and attach the heat 
sinks to the appropriate areas. Solder ground to ground and audio to audio. If 
the insulators begin to melt, discontinue soldering and attempt to re- 
straighten the pins. Once soldered, reassemble the plugs. Firmly insert the 
5-pin plug into the ATARI 800 monitor jack and the RCA-type phone plug in- 
to the accessory or tape (in) jack on the back of your stereo. Boot something 
musical onto your 800, turn down the volume on your TV and switch your 
stereo to accessory or tape. If you have a stereo/mono switch, place the switch 
in mono position. Otherwise, the sound will only come through one speaker. 
Very slowly, turn up the volume. You should hear perfectly clean music. If you 
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hear a hum, you have a poor connection. Check that your solder has not 
bridged across the insulator. 

For the adventurous experimenter, you could also build a frequency 
separator making this a pseudostereo rather than a monotone cable. Use a 
high/low frequency shunt and patch the high frequency to one channel and 
the low frequency to the other. I'll leave the design up to your imagination. In 
addition, the strength of the audio signal could be monitored and used to con- 
trol some other devices. For example, you could place a fan on the top of your 
television and an inclinator platform beneath your chair. As you enter hyper- 
warp, the fan would blow faster and faster, and you would gently sink back in- 
to your seat. The seat would jolt whenever you were hit by enemy fire and it 
would pulse during engine damage. An affixed joystick on the arm of your 
chair would allow you to bank to the right or left, climb or dive, by shifting 
your weight. The ultimate in home aviation simulators! 

by Thomas Krischan 



} Tari Talkers 

Voice Synthesizers for the ATARI 400 & 800 

Confidently, I slipped into the Commander's chair. I pushed [START] 
and a vision of deep space, scattered with stars, flashed on the view- 
screen. My superior's deep voice washed through the room, "Wel- 
come aboard, Commander. Your mission . . . ." When he finished, I typed [G] 
for the Galaxy Map. Lt. Longri's tenor explained that a Zylon full battle patrol 
had entered sector A4. That fit my strategy! I punched the controls, and the 
ship leaped into hyperspace. Upon reentry, Captain Sumtra's dusky voice 
warned, "Zylon sector, sir." I punched for shields. "Shields," she replied. 
The screen became a blur of ships, photon torpedoes, explosions. Lt. 
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Longri calmly tracked our kills, while Captain Sumtra repeated every order 
smoothly. Suddenly, Damage Control's clipped, high-pitched voice screamed 
through the flight deck, "Shields lost!!" A Zylon fired at us. I punched 
hyperspace. The screen disolved in a flash of white. Against a dark screen, the 
Federation's emblem appeared, the commander spoke quietly, "Posthumous 
. . .rank awarded. . .Garbage Scow Captain." 

Now, two machines make it easy to add voices to your Atari programs. 
The Type'n Talk (TNT) from Votrax and Echo-GP from Street Electronic syn- 
thesize, or create speech, from written English almost as easily as characters are 
printed on your screen. 

Applications far beyond obvious game enhancements abound. Imagine 
pronouncing dictionaries or spelling programs more flexible than Speak-N- 
Spell. Either system could be set up easily to speak for a speech-impaired per- 
son, or to voice, letter -for-letter, or word-for-word, all data entered by, or sent 
to a blind operator, my most successful program, so far, displays a four-color 
chart and explains it orally, with no text distracting from the visual. At least 
half the fun is watching a new user's face as the computer says, "Hello Mary!" 

Both TNT and Echo are efficient, small, speak an unlimited vocabulary 
(anything you can print), take almost no memory, and cost less than $500. 
Both speak with a distinct "computer voice" which the uninitiated can 
understand, with some concentration, but which quickly becomes "natural." 
It's a bit like getting used to that uncle with the funny accent. 

Both units require an Atari 850 Interface and a cable. The cables are 
available from the manufacturers for an extra $30, or can be made as follows. 
Order the 9-pin DB connector from Apex (APX-90006 $5.50), and a 25-pin 
DB male connector from Radio Shack ($3.50) or any electronics house. Buy a 
few feet of any 6-conductor (or more) conductor cable (Beldon #9421 is often 
used). Connect these according to the chart (Fig. 1), and you've saved $20. 
The TNT requires an 8-ohm speaker ($5-$10) and a mini-phone jack. The 
Echo has a built-in speaker but you can add and external speaker for fidelity 
and volume. With an external speaker, the Echo puts out considerably more 
sound than the TNT. 

Getting started is simple. Set the switch to 300 baud, plug the cable into 
serial port 1 or 2 of the 850, boot the system, and type the following statement 
[The "n"s represent the IOCB (see BASIC manual p. 26); the "x"s are the port 
number, 1 or 2]: 

OPEN #n,8,0,"Rx": XIO34,#n,48,0,"Rx": XIO36,#n,12,0,"Rx" 
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After that, merely issue PRINT #n commands to make the units speak 
what you wish. A program to input a string from the keyboard and speak it 
takes no more than three lines. Both units include clear, usable manuals with 
lots of examples. 

Although the units are similar, there are clear differences. The most 
important criterion to me was intelligibility. No speech synthesis device is 
worthwhile if you can't understand it. A frequent user will get accustomed to 
either of these. To check for immediate clarity, I took both units to the 
Lawrence Livermore Lab Science Fair and asked visitors to listen to a list of 
20 words, spelled as recommended by both companies, spoken alternatively 
on one, then the other, unit. Since I have used the Votrax for six months and 
find it quite clear, I expected it to win this test. However, nearly all people 
listening to the two for the first time found the Echo clearly superior. The 
Echo seemed to excel with words beginning with "hard sounds" such 
as T, P, B. 

Intelligibility aside, I examined reactions to the Echo's many unique 
features. Both units sound like computers, not people. But as one girl said, the 
Echo sounds like a "he," the TNT like an "it." The Echo software-switchable 
pitches (at normal speed) were a popular feature. The lower voices were easier 
for most people to understand and several suggested creating dialogues 
between different personalities, each with a different voice. 

The Echo's "inflection" feature raises the tone of the last syllable before a 
question mark and lowers it before a period. Although only about half of the 
new listeners could describe this effect, it may have contributed to the Echo's 
superior intelligibility. 

Spoken punctuation is another Echo plus. Normally, it speaks the 
punctuation commonly spoken ($, #, =). But, at the drop of a software 
instruction, most punctuation (comma, period, semi-colon, parenthesis, etc.) 
or all (including spaces, returns, etc.) are spoken. This could be a real boon to 
the sight-impaired. Both units will spell capitalized acronyms. The Echo, 
however, has a letter mode which will spell out all words — very useful for a 
spelling program or a blind operator faced with an unintelligible word. 

Both systems allow the user to create phoneme strings. This results in 
phrases with exceptional clarity. Frankly, since I get acceptable results with 
English, phoneme coding words seem like too much work. For instance, 
"catalogue" is coded "KA3DIL*1G"! If you decide to phoneme code, a TNT 
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software option will send you a phoneme string as it translates from the 
English. You then polish it up for final phoneme codes. 

The TNT's enclosure has some problems. The on/off switch is on the 
back panel, and worse, the unit has no "on" light. Many's the time the kids 
have left the TNT on all night! Echo has a light, and the switch is right up 
front. 

So there's the balance. Both do a good job. 

Intelligibility, features and price make the Echo distinctly superior. 

by Ken Harms 

ECHO-GP (Serial) TYPE 'N TALK 

Street Electronics Corp. Votrax 

1140 Mark Ave. 500 Stephenson Highway 



Carpinteria, CA 93013 Troy, MI 48084 

(805) 6844593 800-521-1350 

List Price-$ 199.95 List Price-$249 +speaker 





Figure I 
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Editor's Note: 

Since this article was written, Votrax has released another voice synthesizer, 
the Personal Speech System. The new product lists for $395 and offers several 
improvements over Votrax's early Type 'n Talk. Personal Speech System has 
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a 16K algorithm (versus 4K algorithm in TNT) which leads to 95 percent ac- 
curacy in pronunciation. It can produce music and sound effects and it has a 
real-time clock. In addition, the speech rate amplitude and inflection are 
user-programmable. And this time, the speaker is inside the unit. 
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Modems 



Did you ever think about what a computer really is? Take the ATARI 
for example. With 48K bytes of memory it can store about the same 
amount of text as a 15-page document. A diskette can store about 40 
more pages. You can think of your display screen as a "window" through 
which you can see this information, about one-quarter page at a time. 

What's the point? Well, the time is here when, for the price of a cheap suit, 
you can give your computer access to millions of pages of memory, instead of 
just 40 or so. 

We are talking about the modem. Let's de-mystify the modem, explore 
what it is, what it does, and then look at a few modems available for the 
ATARI. 



Terminology 

Here are some terms you will find in the world of modems: 

• MODEM — The word derives from "modulate-demodulate." A modem is 
a hardware device that translates an incoming sound signal (frequency) into a 
binary code that your computer will understand (computers do not under- 
stand sounds). The modem also works the other way around. It will translate 
an outgoing, computer -generated binary code into frequencies that can be 
transmitted over circuits used by the telephone company. 

• BAUD — This term describes the rate at which data is transmitted. The 
telephone company has established 300 baud as a standard rate of data trans- 
mission for phone lines. 

This equals 30 characters per second or approximately 350 words per 
minute. This is about as fast as most people can read. There is also a 1200 baud 

Jon Loveless is a resident of the San Francisco Bay Area, and a Vice President of Marketing for 
Synapse Software. An ATARI hobbyist from the outset, he has a special interest in hardware and 
peripherals, especially printers and modems. He was one of the early editors of ANTIC, and a co-founder 
of ABACUS, but the demands of Synapse's growth have limited his recent contributions to ANTIC. 
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standard rate available on the phone system at a premium price. Watch for 
this price to fall over the next few years. 

• ACOUSTIC-COUPLED — This describes the type of modem that trans- 
mits and receives directly through the standard telephone receiver. This kind 
of modem has two foam "cups" into which the earpiece and the mouthpiece of 
the receiver are placed. The cups channel the sound, audible as a high-pitched 
whine, to and from the phone system, and muffle extraneous noise. 

• DIRECT-CONNECT — This is the newer breed of modem. It can connect 
directly to your telephone wall jack or plug into your telephone with a "Y" 
adapter. Outside sound interference and clumsy manipulation of the receiver 
are eliminated. 

• ANSWER-ORIGINATE — These terms describe which modem is calling 
and which modem is answering. There must be a modem on each end, but 
they do not have to be the same brand. Either modem can do either job, but 
not at the same time. 



Modems 

By now, you may be interested in buying a modem, and wondering what 
features are important. Here are some things you should be aware of. 

Acoustically-coupled modems, the "ear-muff" type, were the first on the 
market and are still the cheapest. They have definite drawbacks. Stray 
sounds in the vicinity of the modem can and do leak past the muffs and can 
affect data transmission. Also, using the acoustical modem is awkward, since 
the correct end of the phone receiver must be inserted in the correct end of 
the modem. This sounds minor, but the error is easily and frequently made. 

Still, acoustic modems do work, are inexpensive and may meet your needs. 

Prices for direct -connect modems seem to be dropping, and the higher 
degree of reliabiltiy for them makes it difficult to recommend anything else. 
If you think you would be even a semi-serious "on-liner," you should think 
in terms of a direct -connect, plug-in modem. Your data will be cleaner, 
and the benefits of uploading and downloading data over networks, with 
the new information utilities, or with other individuals, will repay the extra 
investment. 

Some modems have status indicators. When the modem is in use it is often 
important to know what the status of your connection is. Is the modem 
"ready?" With a direct-connect modem, is the simulated "receiver" on the 
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hook or off the hook? Has there been an accidental disconnect? Is the other 
end answering? The more information provided by the modem's status indi- 
cators, the better. 

Some modems have autodial /autoanswer. You can dial a phone number 
from your ATARI keyboard! Admittedly, this is a luxury, but if you use a 
modem a lot, it is a nice feature to have. Autodial allows you to store 
telephone numbers in your software program, and have the modem do your 
dialing for you. This eliminates the need for a telephone near the computer, 
provided you have a phone cable long enough to reach your telephone jack. 

Autoanswer is only needed for such serious data communications as 
operating a bulletin board service, or otherwise responding to the incoming 
call of another computer. Think of the possibilities, though! You can call your 
own computer from any remote terminal, or even from a phone booth with 
one of the miniature modem-terminals recently announced. 

Other features to look for include: 

• compatibility with the Bell 103 Standard; 

• full-duplex and half-duplex (in case you only want to send or receive); 

• 300 baud rate, 1200 baud optional; 

• RS-232 plug compatibility for Atari 850 interface connection; 

• proper connecting cables! 



Cables 

A word about cables is in order. Modems must be connected to your other 
equipment, and to the telephone line. You would think that an expensive 
item like a modem would come with the appropriate cables. Not always so, 
and the price difference between a more expensive unit with cables and a less 
expensive one without may be misleading (some cables cost $50!). Also, some 
modems are designed to hook up more simply, eliminating some cable 
requirements. Before you buy, determine your complete system requirement, 
and compare the price for all pieces. You will want to include software costs, too. 

All modems, once the proper connections have been made, will perform 
their primary function of data communications, so the bottom line in any 
decision should be: quality, price, and extra features. You will probably find 
your use of a modem will be greater than you now expect, so be open to the 
more capable units. 

Any modem can work with the ATARI, if properly connected, but some 
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have been built specifically with the ATARI in mind. We will discuss the prin- 
cipal ones here. 

Atari 830 Modem ($199.95) 

The Atari Modem, sold by Atari, is a "Novation 'CAT'" modem in Atari 
dress. It is a standard acoustically-coupled modem with only very basic 
features. It is fine for a beginning user, or someone with limited needs. Since it 
is marketed as an Atari product, it comes with all required cables. It also 
needs the Atari 850 Interface, which some modems do not, so if you don't 
have the Interface you should seriously consider the Microconnection 
modem (see below), or others that bypass the Interface. 

The Atari 830 is a plug-in-and-go product with good documentation. 
You will need software with this, as with all modems, and might well consider 
Atari's TeleLink cartridge ($30) for a nice, modular system. Caution! Tele- 
Link is a very limited program, and will not allow copying to disk. It will drive 
the Atari printer, but printing "on-line" is expensive. The major drawbacks 
with the Atari 830 are that it is acoustic, and has limited features. 

An alternative buy would be the "Novation 'CAT'" if you can 
find cables. Two other "Novation" modems are compatible with the ATARI. 
One is the D-CAT, a basic direct -connect model, and the AUTO-CAT, 
that has the autodial feature mentioned earlier. Although not described in 
depth here, they are both good products that should be considered as in the 
running. 

Microconnection-A ($199 to $328) 

This direct-connect modem is made by the Microperipheral Corp. and comes 
in four versions all designed for the ATARI. This selection is very attractive to 
the prospective buyer. 

For example, there is a bus-decoding version ($249) that allows connec- 
tion without using the Atari 850 Interface. This modem can be used with as 
small a system as the Atari 400 and the 410 Program recorder. This model has 
a DB-25 socket that allows connection of the Atari printer, again without 
Interface. This makes the Microconnection a good candidate for a small basic 
system. For $30 more this model comes with autodial. 

There is a plain version ($199) that does require the Interface, and for an 
additional $40 you can get the autodial and autoanswer features. 



MODEMS 



Caution! Microconnection's autodial uses pulse dialing (not touch tone) 
which cannot be used with the MCI or SPRINT long distance phone services, 
but you can manually dial SPRINT or MCI with this modem. If you are a 
heavy user of these long distance services this could be an important limitation. 

Microperipheral has done a commendable job of supporting the ATARI, 
and their own software enhances the capability of their modem dramatically. 
The top of the line software, called TSMART ($79.95) incorporates autodial 
as well as message preparation and storage features that reduce expensive "on- 
line" connection time. You will appreciate this after you see your first phone 
bill after buying a modem. 

The Microconnection is relatively simple to connect and use. It comes 
with extensive, if dense, documentation which includes a listing of free 
bulletin board services, by area code (a nice touch!). Microperipheral Corp. 
maintains a user service accessible through CompuServe, over which you can 
get updates of their software. Now that's service! 

Smartmodem ($2 79) 

This is a direct -connect modem by Hayes Microcomputer, Inc. Although it 
does not come as a model specifically for the ATARI, you can purchase a 
cable to connect it to the Atari 850 Interface (required). The fact that this 
modem does not come with a cable is a serious drawback in a product that 
costs so much. This is not a criticism of Hayes alone, as you will discover 
when you buy your first non-Atari printer, or other peripheral device. 

Assuming you buy the "Hayes Stack," as it is also known, and are able to 
get or make a cable, you will have the most flexible modem in the price range. 
This is truly a "smart" modem. The heart of the device is a 280 micro- 
processor with a 2K byte control program built in. The only switch is an 
ON /OFF toggle! Everything else is program controlled, or preset by you, 
utilizing the configuration panel under the front cover. 

Here are some of the features of the Smartmodem: 

• either touch-tone or pulse dialing at any time; 

• audio monitor allows you to hear what your phone line is doing (a real help 
when the receiving party is busy); 

• storage of the last number dialed; 

• automatic redial (helpful for disconnects, busy signals, etc.); 

• seven LED status indicators on the front panel (impresses visitors); 
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• complex dialing sequencing (e.g., dial number, wait for tone, send ID, dial 
another number, as required for MCI and SPRINT); 

• programmable in any computer language and compatible with most data 
communication software. 

The list goes on, but the point is made. The Hayes Smartmodem is very 
versatile, but suffers due to a lack of direct applicability to the ATARI. With 
the appropriate cable (I made my own) and almost any good terminal soft- 
ware, this modem is the most flexible. 

There are other usable modems around, though not specifically for 
the ATARI. They will work fine with the proper cable, and some of the 
good software. 

If you are not in the market for a modem now, I guarantee that you will be 
some day. It might be a good idea to wait, if you have no immediate urge to 
link up with the rest of the tribe. Prices keep coming down, and good gear 
gains reputation as satisfied users swap notes. 

Keep your eyes open for new, low cost entrants to this field. For example, 
I noticed (but have not used) the Signalman MK-1 from Anchor Automation 
at an unbelievable price of $99, including RS-232 connector cable. This 
direct-connect modem could be the forerunner of a price revolution. 

Meanwhile, the modems we have discussed are definitely state-of-the-art 
products and can be expected to provide good service for a long while. 









by Jon Loveless 




ATARI BULLETIN BOARDS 




State 


Name 


Phone Number 


Type 


CA 


LAACE 


213-988-8373 


AMIS 


CA 


GFX 


408-253-5216 


AMIS 


CA 


IBBS 


408-298-6930 


AMIS 


CA 


ABACUS 


415-587-8062 


AMIS 


CA 


ACCESS 


916-363-3304 


AMIS 


DC 


WASHINGTON 


202-276-8342 


ARMU 


GA 


RODR. 


404-252-9438 


ATAB 


IL 


WIZ-BANG 


312-925-2929 


AMIS 


MA 


MACRO EXCH. 


617-667-7388 


AMIS 


MI 


M.A.C.E. W. 


313-274-3940 


AMIS 


MI 


M.A.C.E. 


313-544-0885 


AMIS 


MI 


A.R.C.A.D.E. 


313-978-8087 


AMIS 


MI 


C.H.A.O.S. 


517-373-6788 


7 


MI 


G.R.A.S.S. 


616-241-1971 


AMIS 


MO 


A.U.R.A. 


314-928-0598 


AMIS 
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NY SPIDER WEB 212-241-8965 AMIS 

OH FLAG CITY 419-423-0206 AMIS 

OR A.C.E. 503-343-4352 ARMU 

TX ARMADILLO 512-837-2003 AMIS 

TX ACUGD 817-498-1751 ARMU 

These Bulletin Board numbers were verified as correct and available as of October, 1983 






Communications Software 

After you purchase a modem and install it, you will soon be aware that 
there is one more important purchase you need to make — software. 
Without a good flexible program your modem will be useless. In this 
article we will introduce you to six different programs designed to be used with 
modems. These programs vary in ease of use and capability. We will show you 
the trade-offs and introduce some new vocabulary which will make our discus- 
sion more understandable. 

Download — this refers to the physical reception of data. It can be in the 
form of a complete program that you are receiving from another computer or 
simply data that you are saving from CompuServe, or The SOURCE. The 
key word is "save." So, download means to receive and save data or programs. 

Upload— this is just the opposite of download. Upload refers to the act of 
sending a specific program or text to another computer via the trusty old 
modem. 

Host Computer— this is the computer that your ATARI will talk to, 
assuming that you make the call. If you use the "auto-answer" capability of 
your modem, your computer becomes the host. 

Translation — refers to the degree of character code incompatibility the 
specific software will compensate for. This inconsistency is often a problem 
with those characters where no real standard has been acknowledged, like 
special control characters. Translation also refers to a program's ability to con- 
vert from one character encoding scheme to another. ASCII to EBCDIC for 
example. 

Terminal emulator — refers to a program's capacity to make your 
ATARI respond as if it were some other type of terminal. VT100 or ADM-3A 

~7s 



COMMUNICATION 



come to mind as widely used terminals. This is usually accomplished by 
redefining key and control code functions. 

Buffer— is often used to refer to a reserved portion of computer memory. 
This reserved area is used by terminal software to store programs which have 
been downloaded. These programs can be saved to disk later off-line. Pro- 
grams which force you to save to disk on-line cost more for connect time 
because the disk is slower. 

There are many other terms you will come across, but these few will give 
you a start. Now, let's see what you need in the way of software. It depends 
largely on your application. If you only want to "look" at the data available 
from some other computer system, your needs are simple. If you want to save 
the data, your needs are more complicated, and if you want to send and 
receive programs, communicate with a computer at your office, or perform 
other such sophisticated operations, you need a fancier program yet. 

You will find a need for several different types of programs as you proceed, 
so let's sort out a few programs to see what they do, and then refer to the table 
on page 78 for a quick reference comparison. 



TeleLink 

This program is available on cartridge from Atari. It is an excellent begin- 
ning for the new modem user and it comes with a free subscription to Com- 
puServe. This alone makes it worth the money. TeleLink's beauty is its 
simplicity. Plug it into the left slot of your ATARI and "logon" as they say. The 
major drawbacks are its inability to save incoming data to disk or cassette or to 
upload and download programs. TeleLink can save data to your printer, but 
this can be costly in terms of connection costs. This is not a bad way to intro- 
duce yourself to telecomputing, but you'll end up wanting more features. 



DataLink 

Swifty Software's program is probably the best all-around choice you can 
make as either a new or intermediate user of the modem. It is simple and 
friendly, yet very powerful. It will fulfill most of your needs including 
uploading/downloading, text capture, save to disk or printer, and screen 
review of data in memory. It allows you to prepare text before you make the 
phone connection, and save text after you hang up, both important features 
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when concerned about your phone costs. Above all else, DataLink is very 
easy to use. Documentation is pretty scant (six pages), which can be a handi- 
cap to the uninitiated, but is also a reflection of how easy this program is to use. 

Download 

This software by Computer Age is a great program, but has received little 
promotion or publicity for some reason. It is written in BASIC and machine 
language (where needed for speed) and offers a benefit in that it can be 
modified by the user. I particularly like this feature with the Hayes Smart- 
modem since it allows you to add a phone number menu and make full use of 
the power of auto-dial. In addition, it has two menus, one for parameters and 
another for memory management. The [OPTION] button accesses the main 
menu and that allows you to go to memory management as one of the options. 
It is not as easy to use as Datalink, but is more flexible. 

T.H.E. 

Binary Computer Software presents this recent addition to the 
communications market. It is possibly the most complex modem program 
available for the ATARI. As with any powerful program, this one requires 
study and practice to use effectively. The documentation is well done and is 
readily understood by the first time user. There are many system configura- 
tions possible using T.H.E. With all the bulletin boards being made available, 
each with different requirements, this flexibility is T.H.E. 's most important 
feature. This is the only package that will translate ASCII to EBCDIC. This 
feature would only be needed when communicating with an IBM system. 

Chameleon 

From APX (Atari Program Exchange) comes a powerful machine- 
language program that lets you tailor your ATARI to a wide variety of 
configurations that will satisfy almost any host computer requirement. The 
documentation is good, but the program must be used extensively in order to 
feel comfortable with the many commands and options. One of the unique 
features is the 80-column screen emulator. Using the ATARI scrolling 
capability you can make it think it is an 80-column computer rather than 40. 1 
have found little practical use for this feature yet, but it sure looks nice. I 
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NAME 


TELNK 


DATLK 


DWNLD 


CHAMN 


TSMRT 


T.H.E. 


MANUFACTURER 


(1) 


(2) 


0) 


(4) 


(5) 


(6) 


MEDIA k =cass/d=disk) 


carig 


,1 


c d 


c/d 


c/d 


c/d 


LEVEL OF FLEXIBILITY 


low 


mod 


mod 


high 


high 


high 


DOCUMENTATION 


good 


fair 


fair 


excl 


excl 


good 


MEMORY REQUIREMENT 
TRANSMISSION 


cartg 24K 
FEATURES 


24K 


24K 


24K 


24K 



.upload programs 


no 


yes 


yes 


yes 


yes 


yes 


.download programs 


no 


yes 


yes 


yes 


yes 


yes 


-download text 


yes 


yes 


yes 


yes 


yes 


yes 


.full duplex 


yes 


yes 


yes 


yes 


yes 


yes 


.half duplex 


yes 


yes 


yes 


yes 


yes 


yes 


-terminal tvpe 


I 


1 


(7) 


4 


(7) 


(7) 


.BAUD rates 


300 


300 


300 


(8) 


(9) 


(10) 


.translation choice 
SEND DATA 


yes 


yes 


yes 


yes 


yes 


yes 


.off-line prepare 


no 


yes 


yes 


yes 


yes 


yes 


.store ID codes 


no 


no 


no 


yes 


yes 


yes 


.preload programs 
RECEIVE DATA 


no 


yes 


yes 


yes 


yes 


yes 


-on-line save 


yes 


yes 


yes 


yes 


yes 


yes 


. .to printer 


yes 


yes 


yes 


yes 


yes 


yes 


. .to disk 


no 


yes 


yes 


yes 


yes 


ves 


. .to cassette 


:u ■■ 


no 


yes 


yes 


yes 


yes 


.off-line save 


no 


yes 


yes 


no 


yes 


yes 


. .to printer 


no 


yes 


yes 


no 


yes 


yes 


. .to disk 


no 


yes 


yes 


no 


yes 


yes 


. .to cassette 


no 


no 


yes 


no 


yes 


yes 


.parity options 


no 


no 


ves 


yes 


yes 


yes 


.memory toggle 


no 


no 


yes 


no 


yes 


yes 


.memory management 
MISCELLANEOUS 


no 


yes 


yes 


yes 


yes 


yes 


.user modified 


no 


no 


yes 


(11) 


yes 


no 


.phone # storage 


no 


no 


no 


no 


yes 


IV ) 


.format screen 


mrgns 


no 


no 


40/80 


mrgns 


mrgns 


.redefine keys 


no 


no 


Imtd 


yes 


yes 


yes 



(1) TELELINK 
ATARI, Inc. 

1272 Borregas Ave. 
Sunnyvale, CA 94086 
$29.95 

(2) DATALINK 
Swifty Software 

64 Broadhollow Road 
Melville, NY 11747 
$39.95 

(3) DOWNLOADER 
Computer Age 
Silver Spring, MD 
$24.95 



(4) CHAMELEON 

APX (Atari Program Exchange) 

P.O. Box 427 

155 Moffett Park Drive 

Sunnyvale, CA 94086 

$17.95 

(5) T-SMART 
Microperipheral Inc. 
2643A-151stPl. N.E. 
Redmond, WA 98052 
$79.95 
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(6) T.H.E. (9) Choice of 300 or 600 BAUD. 
BiNARY Computers 

3237 Woodward Ave. (10) Zero to 9600 BAUD. 

Berkley, MI 48072 

$49.95 (11) Source code is provided for the adventurous 

assembly language programmer, but is 

(7) Terminal type may be defined largely sparsely commented, 
through flexible parameter definition, if not 

by name. 



(8) Widest choice from 48 to 9600 BAUD. 



wouldn't recommend this program to beginning users of modem software 
unless they are ready to roll up their sleeves and work with it. For the more 
sophisticated user this is a powerful tool. One caveat with this program is that 
it transfers files more slowly because it writes to disk rather than saving to a 
memory buffer. 

T'Smart 

Microperipheral Corporation offers a powerful and flexible program 
written expressly for their Microconnection modem. Its power rests partly in 
the fact that it was written with a particular modem in mind, and partly in the 
fact that it is reasonably simple to use for all the flexibility it has. It is 
completely menu driven, but a nice feature is the option to override the menu 
as you become familiar with the commands. It incorporates real autodial so 
that you can include your own list of phone numbers right in the program. 
Much of the program is written in BASIC allowing you to tailor it to your own 
needs. Finally, as with the Microconnection itself, it is well supported through 
a simple contact on CompuServe. I understand this even includes updates as 
they become available. 

Take Your Pick 

So you now have a bird's eye view of six pieces of software for your new 
modem. If you are like most users, you will find your needs satisfied by a 
simple program, occasionally needing more power or flexibility. For example, 
I still use TeleLink because of its simplicity. I check the electronic mail service 
(EMAIL) of CompuServe with TeleLink and nothing could be easier. I use 
Datalink often because it is simple yet quite powerful. T.H.E. is a newcomer 
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and yet I already am finding some of its features and power attractive. Finally, 
if I owned a Microconnection, I would certainly use T-SMART because of the 
powerful design interaction between software and hardware, a well-planned 
pair. 

For a first purchase I would be hard pressed not to recommend the 
Datalink program because of its nice blend of power and simplicity. It will 
satisfy the majority of your needs, and will allow access to most common 
services such as CompuServe, The SOURCE, and nearly all of the bulletin 
boards available. The greater parameter flexibility of some of the other 
programs is necessary for sophisticated communications between your 
ATARI and non-ATARI equipment, especially if you plan to do a fair amount 
of program exchange. 

Our goal has been to shed light on the sometimes confusing topic of data 
communications. We would suggest that whatever hardware and software 
you decide to purchase, it be checked for compatibility. A good package will 
make your introduction to telecommunications easy and enjoyable. It really 
is a thrill when you successfully transfer your first program to a friend across 
town. 

by Jon Loveless 
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Electronic information utilities are making a big splash on the American 
scene as more and more people buy computers. Most computers, 
including the ATARIs, can "communicate" with each other using 
these utilities. Communication between computers has brought about an en- 
tirely new kind of business. 

What's an information utility? Essentially, it is an electronic network that 

This infomtation updated as of August, 1983. 



Robert DeWitt is managing editor of ANT/C Magazine 
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sells computerized information and services to connected customers, just like 
the water utility sells water. At present this is done over telephone circuits, 
and soon it will also be done by TV cable. 

Two such utilities are prominent now; CompuServe and The SOURCE. 
The American Telephone Company (Ma Bell) is expected to enter this field 
soon, and will certainly be a strong contender. There are other services 
around that connect computers but they are usually smaller, more specific, 
and more expensive. DIALOG, a scientific data-base, is an example. 

General 

CompuServe dates back to 1969 as a data-base service company for other big 
companies and government. It is owned by H&R Block, and is located in Col- 
umbus, Ohio. It uses DEC-10 mainframe computers and has about 63,000 
subscribers. CompuServe publishes a monthly newsletter "Update," and a 
monthly magazine "Today." These are free to subscribers. 

The SOURCE began in 1979 specifically as a consumer -oriented informa- 
tion utility, although it does serve businesses too. It was bought by Reader's 
Digest in 1980, and is located in McLean, Virgina. It uses six PRIME-750 
mainframe computers and has 38,000 subscribers. The SOURCE publishes a 
bimonthly magazine "Sourceworld" that is free to subscribers. 

Both utilities transmit at 300 baud or 1200 baud, and charge more for the 
higher rate. Since 300 baud is about 300 words per minute, it a comfortable 
rate for a human operator. This article refers to 300 baud service only. 

Time Availability 

Both utilities are available full time, but at higher cost during business hours 
(see below). The SOURCE officially closes daily from 4 A.M. to 6 A.M. EST 
for system work. This is 1 A.M. to 3 A.M. PST (western nightowls take note). 
CompuServe claims to be up "99.4%" of the time. Both begin their even- 
ing rates at 6 P.M. (local time,), but The SOURCE initiates a still lower rate at 
midnight. 

Access 

To get connected with either of these utilities, the user calls a telephone 
number, gives an I.D. number and password, and is "logged on." Herein lies a 
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significant difference. The user calls the telephone number at his own ex- 
pense. If the closest access number is long distance, the user pays the charge. 
The SOURCE is clearly superior here, providing a local (no charge) number 
in about 350 major areas, including Alaska, Hawaii, Puerto Rico, and 
Canada. 

CompuServe provides free local numbers in 200 cities, and a TYMNET 
or TeleNet number in about 200 more cities, for which the user pays an addi- 
tional $2.00 per hour. City size is no guarantee of having a local CompuServe 
number. 



Cost 

The SOURCE has a $100 registration fee that dissuades many people. Com- 
puServe charges $20 for a "dumb" hookup, $30 for a "smart" one that includes 
software, or $40 for a smart one including five on-line hours. Most ATARI 
owners will want the dumb package and get their software elsewhere. 

All time charges are figured to the nearest minute, local time. Regular 
time on The SOURCE is from 6 P.M. to 7 A.M. and all day on weekends and 
holidays. This is billed at $7.75 per hour. CompuServe charges $5.00 per hour 
from 6 P.M. to 5 A.M. weekdays and all day on weekends and holidays. 

Rates during business hours for The SOURCE are $18 per hour, and for 
CompuServe $22.50 per hour. Anyone interested in CompuServe should add 
any long distance or TYMNET charges that could affect comparison. 

The SOURCE has a few services that cost more, for the time they are 
used; commodity prices and stock analysis, Compu-U-Store ordering, and 
journal abstracts. These are designated as SOURCE*PLUS and cost $15 per 
hour in regular time, or $10 per hour after midnight. CompuServe has a few 
surcharges in the stock market service, and charges a flat fee for Comp-U- 
Store. CompuServe also adds $2.00 to your monthly bill if you do not use 
MasterCharge or VISA for payments. 



News 

Both utilities have news services. CompuServe is more extensive, offering 
Associated Press, Canadian Press, and two complete American newspapers 
(the Washington Post, and The St. Louis Post -Dispatch). The SOURCE offers 
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United Press International and selected N.Y. Times stories and features. In- 
dexing by key word and key-word search of news is available with The 
SOURCE, but not with CompuServe. 

Another difference is that CompuServe purges its news daily and has no 
historical news files. The SOURCE purges weekly (Friday A.M. 
maintenance) so it has a whole week's news available on Thursday night. This 
could be an important difference for researchers or people with special news 
interests. 



Shopping 

Both utilities offer shopping by Comp-U-Store. This allows on-line review of 
about 30,000 items, plus electronic ordering for delivery to the home. The 
SOURCE offers "ordering" mode at SOURCE*PLUS rates, and Com- 
puServe charges an extra membership fee of $18 per year to order. "Browsing" 
can be done on either utility at regular rates. Comp-U-Store itself is offered 
directly at $25 a year plus 25 cents per minute, so getting it as a part of a 
broader utility service does represent a value. 

The SOURCE offers a BARTER program for worldwide exchange of 
goods and services, and both utilities have bulletin boards in which users may 
advertise. CompuServe includes classified advertising from the newspapers it 
carries, but this is an expensive way to read classified ads. 



Ori'Line Conversation 

The most popular feature of either of these utilities is the on-line communica- 
tion between and among users. CompuServe's version is called "CB 
Simulator," and it's a conversational free-for-all, with participants identified 
by fictitious "handles." The samples I've seen were bawdy and inane. If one 
perseveres, it is possible to find a party with mutual interests, and arrange a 
private talk. Groups can even conference on-line, and the exchange can be en- 
crypted if all users have an encryption password. 

The SOURCE offers CHAT, limited to two users who must be on-line 
and agree to the exchange, which is private. If you don't know anyone to chat 
with, you can query any user whose I.D. number shows up on the "online 
directory." 
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EMail 

EMail is sure to become a new English word. It means electronic mail, and we 
will all be using it soon. Even now, users of these utilities enjoy the advantage 
of instantaneous message exchange, which can be printed or copied with the 
right equipment and software. 

With either utility, messages can be EMailed to any other user of that ser- 
vice. The user's I.D. is his address, and the message will wait for him until it is 
picked up. 

The SOURCE allows for an unlimited number of letters to collect until 
read. With CompuServe, your mailbox is "full" with 10 letters, and no more 
can be received until the mailbox is relieved of at least one letter. 

The SOURCE has an extra EMail feature called Voicegram. It allows the 
member to call into the tollfree Customer Service number and dictate an 
EMail letter to any user for a $1.25 extra fee. 

CompuServe allows its members to use its text editor program , FILGE, on 
EMail. 



Customer Service 

Both utilities maintain tollfree Customer Service numbers available 24 hours 
a day, and both were helpful and courteous when called. Both answer 
automatically, and put you on hold "airline fashion" if necessary. Waiting time 
was three minutes, at most. 

The numbers are: The SOURCE (800) 336-3366; CompuServe (800) 
848-8199. 



Stock Market Information 

Both utilities provide stock market quotations, news, and analyses. 

CompuServe calls its service MicroQuote, and charges five cents per 
quote. There is a $1 minimum fee each time that data-base is used. 

The SOURCE calls its stock quotation service UNISTOX, and offers it at 
no extra charge. Both services cover about 30,000 issues on the major ex- 
changes. The SOURCE also covers trading in about 20 commodities. These 
quotations are charged at SOURCE*PLUS rates. 
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Bulletin Boards 

Users can post their own notices on the bulletin boards of their respective 
utilities. 

The SOURCE calls theirs POST. It is categorized by subject or interest. 
For example, there is an ATARI section in POST where I found about twelve 
notices. 

The CompuServe board is called BULLET. There are three separate sec- 
tions: Sale, Wanted, and Notices. Each section has a few hundred postings at a 
time. Each is key-worded and numbered. To find ATARI notices you must 
scan all three lists. 



Programming Aids 

Each of these utilities provides services for computer programmers. You can, 
in fact, program on-line and store data files with the utility. 

CompuServe supports BASIC, Fortran, AOL, Pascal, BLISS 10, 
MACRO, SNOBOL and AID. They call this part of the the service the "pro- 
grammers' area,"and it is available at the regular rates. Each user of this area 
gets 128K bytes of free memory, if it is accessed at least monthly. 

The SOURCE supports BASIC, COBOL, Fortran, RPG II, and 
assembly. It sells storage in blocks of 2,048 bytes. One to ten blocks cost fifty 
cents per month per block. 

Both utilities allow word processing and text editing on-line. Com- 
puServe calls their editor "FILGE." If you have only a terminal, these services 
make sense. If you have a computer, it is more economical to do these things 
off-line. 



Games 

Believe it or not, game playing on-line is a very popular part of these services, 
perhaps reflecting the high percentage of juvenile users. Each utility has its 
own main adventure game, and other games. 

CompuServe is probably more game oriented than The SOURCE. It has 
'Adventure (in Colossal Cave)" and two other adventure-type games, in- 
cluding "Scott Adams Adventure." It has Dec Wars, and Space Wars and 
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Mega Wars which are interactive with other users, and it sponsors periodic 
game contests among its subscribers. 

The SOURCE'S primary adventure game is Blackdragon, though it also 
has a selection. The SOURCE has more games than CompuServe, but 
generally they seem more trivial. 

Special Interests 

Each of these utilities has a vast number of special interest topics, and the 
variety increases all the time. It will be important to focus on your own two or 
three high priorities and compare specifically how these are handled by each 
service. CompuServe publishes a one-sheet Subject Index that you can review 
at any Radio Shack, and has an insert called Highlights in its magazine. The 
SOURCE has a pamphlet "SOURCE DIGEST" available at all Com- 
puterland stores. 

Briefly, here are some special interest topics they provide about equally: 

• film reviews 

• airline schedules 

• travel services 

• electronic checkbook 

• personal advisor 

• legislation status 

• sports information 

Here are some specialties of The SOURCE: 

• customized research (Information on Demand) extra fee 

• Mobil Restaurant Guide 

• some accredited college courses 

• user publishing (royalty to user for material accessed by others) 

• employment service (wanted and offered) 

• personal appointment calendar 

Here are some of the specialties of CompuServe: 

• SOFTEX programs for sale and on-line delivery (downloading) 

• Printer Art Gallery (downloading) extra fee 

• Future File, by Nathan Muller 

• Better Homes & Gardens food, decor 
World Book Encyclopedia 



• 
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• limited home banking 

• feedback to CompuServe (no charge) 

• various contests 

• general aviation information 

Atari Support 

CompuServe is going after the Atari market, and vice versa. Atari advertises 
on the back cover of each issue of CompuServe's magazine. There is also an 
official Atari department in CompuServe where users can "Talk to Atari." 

The SOURCE, on the other hand, has no official Atari involvement at 
this time. But it does have an Atari section on the bulletin board. 

There is no clear best choice for everyone but there could easily be a 

"wrong" choice for anyone. We hope this analysis will help you get with the 

one you need. 

by Robert DeWitt 



PRONTO 

Bank On Your Atari 

Soon you may be able to use the ATARI to do your banking without 
ever leaving home. A pilot electronic banking program called PRONTO 
was started last year by The Chemical Bank of New York for some of 
its customers who owned ATARIs, and is now being licensed to many more 
banks across the country. Crocker National Bank in San Francisco, Worthen 
Bank in Little Rock, and Florida National Bank in Jacksonville are just a few 
of the other financial institutions that have opted to use PRONTO for a test 
run in 1983. 

The model program began in New York and served 200 customers of 
Chemical Bank who were willing to participate in this experiment. PRONTO 
is the latest among other electronic services offered by the bank that have 
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included a corporate cash-management system and computer-automated 
tellers. 

To begin using PRONTO, a customer needs to have an ATARI computer, 
a standard telephone line and a modem. Each home computer system serves 
as a "terminal" for the main program that runs on Tandem Computers at 
Chemical Bank headquarters. The user connects with the main system by 
dialing a local network number via phone and modem to begin transactions 
on a home video screen. 

When the first test run began last November, PRONTO customers had to 
use an acoustic-coupled modem to transmit and receive data. This type of 
modem has two foam "cups" into which the earpiece and mouthpiece of a 
standard telephone are placed. Customers used the ATARI 830 (acoustic- 
coupled) Modem along with the ATARI 850 Interface device and a special 
cartridge to activate the program. The long-awaited 835 (direct-connect) 
Modem for the ATARI was not available at the time, but should be soon. 

Direct-connect modems are more advanced and much easier to use, and 
will eventually replace all acoustic-coupled types. The ATARI 830 Modem 
connects directly with a telephone wall-jack or plugs into the telephone with 
a "Y" adapter. Most software communications systems that use a modem also 
require extra software such as TeleLink. The PRONTO system includes a 
communications-software cartridge, similar to TeleLink, that is supplied to 
the user at no extra cost. 

The PRONTO software is a complete financial management system that 
allows you to get instant information about your bank account. It also pro- 
vides screens with forms for household budgets. You may register checks, pay 
bills, send electronic mail to other PRONTO users and keep accurate tax 
records that include principal and interest categories. The budget screens 
allow you to list up to 50 items and five different personal budgets per house- 
hold. Each family member can have a secret access code to insure privacy. 
You may monitor all your account activities and get an "electronic state- 
ment" along with your usual monthly printed statement. 

Most people who were asked to participate in this project responded 
enthusiastically. In San Francisco, Crocker Bank announced to its employees 
and the general public that it was looking for participants to begin the 
PRONTO pilot in early 1983. The fifty openings for test users at Crocker 
were filled immediately. A total of 200 customers and employees are expected 
to be using the PRONTO pilot in San Francisco by July. Many users of the 
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Crocker system will have the option of using other hardware, such as the 
IBM PC or the Apple II. 

The banks have not yet determined how much to charge for PRONTO, 
but when Chemical Bank queried its pilot customers, most agreed that they 
would be willing to pay about $10 a month for this service. If you feel that 
you may be interested in this type of service, ask your own bank. Who 
knows? It may be offering electronic banking like PRONTO in the very near 
future. by Deborah Burns 
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Chicken — A Great Game 



Why did the chicken cross the road? To provide a premise for a com- 
puter game. Actually, our chicken is trying to score points by get- 
ting safely across this busy highway. Each time he succeeds adds 
to his score, but the cars go faster and faster. If he gets hit, the SPCA sends an 
ambulance and the cops slow the traffic down for a while. 

This clever game can be yours for the copying, courtesy of Stan Ockers, 
who wrote it in BASIC and assembly language, and Mike Dunn, editor of 
A.C.E. Newsletter (Eugene, Oregon), who printed it first and gave us permis- 
sion to pass it on to you. 

System Requirements I6K RAM, joystick hy Stan ° ckers 

Stan Ockers, from Lockport, Illinois, has brightened the world of ATARI enthusiasts with his selfless 
support of user groups and contributions to ' 'the public domain ," that large and growing body of programs 
appearing in newsletters and in ANTIC for which no commercial software rights are claimed. Chicken, 
ANTlC's first public domain game, is representative of the high quality of Stan's programming. 



Chicken will not work with the 1200XL computer. 



/r 



* * * * * 



BY 



CHICKEN 
STAN OCKERS 



* * * * * 



REVISED BY GUY HU 
36: R 



4 REM 

5 REM 
RT 

9 C1«4:C2»0:C3-0:SCOREONE=500:RN3 
N4-21 :W-7: U-1 1 : BSW-0:GOSUB 15000 

10 OPEN #1 . 4 . B .*" K : " : DIM L $ ( 2 ) , S S ( 2 ) . 
C$(20) . Z$(S) :Z$(1 )-"/" :Z$(2)="@" :Z$(3) 
-"%'• : Z$( 4 )-"$•■ :Z$(5)-" " 

D : HI2 . DAT" : INPUT #2 , HI 



1 1 
GH 
12 
13 
1 4 
15 
16 
19 



OPEN #2,4, 
CLOSE #2 



REM 
REM 
REM 
REM 
REM 
POSITION 



DEAR 0WMER:IF YOU OWN A DISK 
CREATE A FILE CALLED HI2.DAT 
AND STORE A ZERO IN IT 
ELSE MAKE STMTS 1 1 .7254742 
REM's UNTIL YOU OWN A DISK 



0,16:? #6 ;" INITIALIZING 



" : 02=0 

20 REM 



PAGE 6 ROUTINES AND DATA 



91 



GAMES 



r< 



INSERT ADR . OF ROUT . IN PAGE 



LINE56-CHANGE 24T056T0SKIP ORTH 



LINE56 CHANGE 28 TO 34 FOR CONT 



FOR 1-1536 TO 1 5 8 7 : R E A A : POKE I, A: 
NEXT I 

41 REM IlllllilWIIliaifUl 

42 DIM VB$ ( 21 ) : FOR 1-1 TO 210: READ A: 
V B $ ( I ) - CHH$(A) :NEXT I 

43 REM llillUIIHlHHI 

45 DIM L D$ ( 73 ) : FOR 1-1 TO 73 : RE AD A:LD 
S(I)-CH R5( A) :NEXT I 

47 REM 

48 A-ADR ( VB$ ) :B-INT(A/256) : POKE 1540, B 
: POKE 15 38. A-256 * B 

50 DATA 104,160,52,162,6,169,7,76,92,2 
28, 104, 160, 98, 162, 228, 169, 7, 76, 92, 228 
52 DATA 120,120,120,120,30,57,81,105,1 
5,15,15,15,0,0,0,0,52,53,54,55,2,2,3,4 
,12,0,0,0,15,11,11,11 

54 REM 

I 

55 REM 
i ' IiMI ' i I 

56 DATA 72,138,72,152,72,162,0,189,120 
,2, 29, 44, 6, 160, 15, 24, 176, 32, 201, 15, 240 
,28,201,14,208,2,160,13,201,13 

57 DATA 208,2,160,14,201,11,208,2,160, 
7, 201, 7, 208, 2, 160, 11, 192, 15, 240, 6, 61, 4 
8,6,157,28,6,152,61,44,6,157,44,6 

58 DATA 232,224,4 ,144,195 

60 DATA 162,0,189,32,6,133,203,189,36, 

6, 133, 204, 189, 40, 6, 133, 209, 198, 209, 16, 

7,232,224,4 

65 DATA 144,232,176,91,189,28,6,133,20 

7 

70 DATA 70,207,176,26,188,24,6,192,1,2 

40,19,208,1 ,200,177 

75 DATA 203,240.6,136,145,203,200,208, 

245,136,145,203,222,24,6,70,207,176,29 

,188,24,6,200,192,254,176,21 

80 DATA 177,203,208.247,136,177,203,24 

0,6,200,145,203,136,208,245,200,145,20 

3,254,24,6,70,207,176,3,222,20 

85 DATA 6,70,207,176,3,254,20,6,189,20 

c I c 7 a o a o 

90 ' DATA 24,144,154,162,4,189,11.208.24 
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CHICKEN 



.243,104.16 8 A 



0,5,169,0,157,39,6,202.208 

. 104. 170, 104,76,98,228 

100 DATA 234,234,234,104,104,104,170,1 

89, 32, 6, 133, 186, 189, 36, 6, 133, 187, 104, 1 

33 , 213 , 104, 133 , 21 2 

110 DATA 189,24,6,133,195,169,0,168,19 

2, 255, 176, 35, 196, 195, 240, 5, 145, 186, 200 

, 208,243, 162,0, 161 ,212,240, 11 

120 DATA 145,186,230,212,200.192,255,1 

76,11,208,241,169,0,145,186,200,192,25 

5,144.2 4 9,96,234,234 

150 REM Ul ■►Ml !■!!■■ 

160 FOR 1-1 TO 20 : READ A : C $ ( I ) -C H R $ ( A ) 

:NEXT I 

170 DATA 24,60,218,68,90,186,70,150,54 

,232,74,168,88,154,21,252,200,76,228,2 



DEFINE PM AREA-SINGLE LINE RES 



190 REM 

200 A-PEEK( 1 06 )-1 6 : POKE 5 4 2 7 9 , A : PM-256 

*A 

205 REM 

210 FOR 1-4 TO 7 : PFKE T568 + I , A + I : NEXT 

I 

212 FOR 1-1568 TO 1571 : POKE I . : NEXT I 

218 REM infllBJUHTTTTn 

220 FOR I-PM TO PM+121:READ A : POKE I, A 

: NEXT I 

230 DATA 16,56,16,56,40.16,16,16,146,2 

54. 254, 124, 56, 56, 40, 40, 40, 40, 40.1 08, 

232 DATA 12 6,195,219,219,91,219,219,21 

9,219,91,219,219,195,126,0 

234 DATA 126,195,210,219,218,219,219,2 

19,219.218,219,219,195,126,0 

236 DATA 33,34,150,84,57,30,60,123,159 

,30,52,86,151,36,194,193,0 

238 DATA 16,56,16,56.40,16.16,56,124,2 

54,186,56,56,40,40,40,44,32,96,0 

240 DATA 16,56,16,56,40,16,16,146,214, 

124,56,56,40.40,40, 104,8, 12.0 

242 DATA 126,255,173,173,239,199,199,1 

9 9,199, 2 39, 173,173,255, 126,0 

270 REM 



PLAY MISSILE POINTERS 



INIT HORIZ .& VERT . POSTN 



i 280 RESTORE 282:F0R 1-1556 TO 1 5 6 3 : R E A j 
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GAMES 



D A : POKE I , A: NEXT I 

282 DATA 120,120, 120 , 120,30,57,81 . 105 

288 REM IIHlMililgiliH 

290 DIF-3: BONUS-300: POKE 7 04 , 4 : C P-0 : F 

OR 1-1 TO 3 : POKE 7 04 + 1 , AS C ( C$ ( C P + I ) ) : N 

EXT I : CP -3 : BPOS-1 

295 REM liinM;liHiWJ*MJJfiTinm 

300 GRAPHICS 17: FOR 1-1 TO 2 : L $ ( I ) -" - 

" :HEXT I 

305 FOR 1-2 TO 20 STEP 2 : S $ ( I ) -" -" : S $ ( 

1-1)-" ":NEXT I 

310 POSITION 0,2:? #6 ; L $ : P OS I T I ON 0,11 

:? #6;L$: POSITION 0,13:? #6 ; L $ : POS I T I 

N 0,22:? #6;L$ 

312 POSITION 0,5:? #6 ; S $ : P OS I T I ON 0,8: 

? #6; SS : POSITION 0,16:? #6 ; S $ : P S I T I N 

0,19:? #6;S$: POKE 710,90 

340 REM HliMJIIfllliiHm*aUrTJil 
350 SCORE-50 : POSITION 0,1:? #6 : " s c o r o 
t ime" : POSITION 0,23:? #6 :" d i 
f high"; 

360 POSITION 0,0:? #6 ; S CO R E : P OS I T I ON 1 
5,22:? # 6 : HIGH : POKE 19,8: POKE 2 0,0 

365 rem unaumi,— H.IH 

370 POKE 559,62:P0KE 53277,3:11-68:12= 

88: FL-I1 *_ 

375 REM 



"\ 



LOAD PLAYERS-SETCOLORS- PLAYERS 



380 LD-ADR(LD$):A-USR(LD,0,PM+RN5):A-U 
SR(LD,1,PM+21):A-USR(LD,2,PM+21):A»USR 

(LD,3,PM+21) 

385 A-USR(1536) : R E M HlHlimiaHHI 

390 POKE 53257, 1 : POKE 53258 , 1 : POKE 532 
59,1: POKE 623, 1 

391 IF BPOS-18 THEN POKE 53257, 3 : P K E 
53258,3 : POKE 53259 , 3 

393 REM n'H»JJJlTJl 

395 POKE 1 5 7 6 . 2 : F R 1-1577 TO 15 7 9: P OK 

E I,RND(0)*DIF+1 : NEXT I 

398 POSI TION 1,22:? #6 ; OIF 

400 REM 



IF CARS OF F -SCREEN . CHANGE LANE 



□ 



410 IF PEEK ( 1557)<15 AND P E EK ( 1 5 6 1 



57 
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CHICKEN 



n 



: P 
42 
93 

>: 
43 
T 
:P 
44 
69 

): 
45 
5 

): 
46 
45 

4) 
46 
47 
6; 
47 
47 
47 
47 
48 
12 
48 
48 
50 
49 
TO 
49 
6. 
49 
6, 
49 
49 
50 
50 
B 
50 
51 



EN PO 
KE 15 

IF P 
THEN 
OKE 1 

IF P 
EN PO 
KE 15 

IF P 
THEN 



OKE 
IF 

HEN 

OKE 
IF 

THEN 

POKE 
REM 
TIME 

IME ;" 
GOSU 
REM 
SOUN 
IF R 
IF R 

10 
REM 
P-PE 



KE 15 
85,7: 
EEK( 1 
POKE 
585 , 1 
EEK( 1 
KE 15 
86, W: 
EEK(1 
POKE 
586, U 
EEK( 1 
OKE 1 
587,7 
EEK ( 1 
POKE 
1587, 



61,19 
GOSUB 
557)> 
1561 , 
1 : GDS 
558)< 
62,16 
GOSUB 
558)> 
1562, 
: GOSU 
559)< 
563, 1 
: GOSU 
559)> 
1563, 
1 1 :GO 



3: A-U 
1000 
240 A 
57: A- 
UB 10 
15 AN 
9: A-U 
1000 
240 A 
81 : A- 
B 100 
15 AN 
45: A- 
B 100 
240 A 
1 05 : A 
SUB 1 



S R ( L 
: POK 
NO P 
US R ( 
00: P 
D PE 
SR(L 
:POK 
NO P 
USR( 
0: PO 
D PE 
USR( 
0: PO 
NO P 
-USR 
000: 



0,1 , 
E 70 
EEK ( 
LD, 1 
OKE 
EK( 1 
D,2, 
E 70 
EEK( 
LD, 2 
KE 7 
EK( 1 
LD,3 
KE 7 
EEK( 
(LD, 
POKE 



PM+RN3) 
5,C 

1561 )=1 
,PM+RN4 
705, C 
562)-81 
PM+RN3) 
6,C 

1562)=1 
.PM+RN4 
06, C 
5 6 3 ) = 1 
,PM+RN3 
07. C 
1563)=1 
3, PM+RN 
707, C 



PRINT TIME - CHECK FOR TIMEUP 



SITION 16 
HEN 91 



-1 5-PEEK( 1 9 ) : PO 
" :IF TIME<-0 T 
B 1200 



RESET SOUND -HORN RTNE 



? # 



D 0,0,0 
ND(0)>0 
ND(0)<0 



5 THEN SOUND 1,0,0,0 
05*RN2 THEN SOUND 1,7. 



CHICKEN STOMP 



EK( 1564) : IF P>15 OR P<35 THEN 



IF P-15 THEN A-USR(LD,0,PM+RN5) :G0 

5 
2 IF FL-I1 THEN FL-I2 : SOUND 0,16*RN, 
8 : GOTO 496 
4 IF FL-I2 THEN FL-I 1 : SOUND 0,22*RN, 



CHECK FOR REACHING BOTTOM 



V 



515 



5 REM 

6 A-USR(LD , 0. PM+FL+RN5 ) 

IF PEEK( 1560)>230 THEN 

1 RN-INT(RND( 0) * 15 + 1 ): IF 

P S<>1 9 THEN RN-1 

5 REM IHil:M«ail««H«MTin 

IF P EEK ( 5 THEN 410 

REM 



810 
BP0S<>4 



AND 
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GAMES 



r>. 



520 A-USR(LD,0, PM+51+RN5) : FOR J-1 TO 3 
: SOUND 0,RND(0) * 2 5 5 , 8 , 8 : SO UNO 1 , R N D ( 
) * 2 5 5 ,8,8 

525 POKE 704,PEEK(704) + 8: FOR 1-1 TO 30 
: NEXT I : NEXT J : SOUND , , , : S OUN D 1,0 

, , : P K E 704,40 

527 REM llJJUfl»HilUH!m«ilWl 
530 SCORE-SCORE-1 : POSITION 0,0:? #B;SC 
ORE;" " :IF SC0RE--8 THEN 702 
533 REM 



MOVE UP. RELOAD BIRD-RESET COL 



535 POKE 1560,PEEK(1560)-24: A-USR(LD,0 
, PM+RN5 ) : IF DIF>0 THEN DIF-DIF-1 
550 IF DIF-0 THEN GOTO 700 
590 POKE 53278, : G OTO 395 

700 rem rrarran 

702 POSITION 3,2:? #6 : " CHICKEN ' S DEAD! 



704 rem mrmTfi 

705 C-1 

706 IF PEEK ( 1 576+C )-fl THEN C-C+1 : GOTO 
706 

707 IF C>3 THEN C-1 

713 POKE 1576+C, 1 : POKE 1 5 6 0+C , P E E K ( 1 5 6 
) : POKE 155 6 + C22 0: A-US R ( L D , C , PM+ 1 07 ) 

715 FOR J-1 TO 6-.F0R P-60 TO 40 STEP - 
2 : SOUND 0,P,10,8:FOR 1-1 TO 6:NEXT I 

716 NEXT P : FOR P-40 TO 60 STEP 2 : SOUND 
0,P,10,8:FOR 1-1 TO 6:NEXT I:NEXT P:N 

EXT J : SO UND 0.0,0,0 

718 REM L'»MHM!1JiIiia 

720 A-USR ( 1546) : IF SCORE<-HIGH THEN 73 



721 HIGH-SCORE: FOR Q-1 TO 7:P0SITI0N 1 
1,23:? #6 : H I GH ; " ":POSITION 15,22:? # 
6;"h i gh" : SOUND 0,40,10,15 

722 FOR Q2-1 TO 50: NEXT Q2 

723 POSITION 11,23:? #6 : " h I g h" : P S I T I 
N 15,22:? #6 : HIGH : ' -" : SOUND 0,50,10,15 
: FOR 02-1 TO 50 : NEXT Q2 

724 NEXT Q : SOUND 0,0,0,0 

725 TRAP 1300: OPEN #2 , 8 , , " D : H I 2 . D AT" : 
PRINT #2,HIGH:CL0SE #2 
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CHICKEN 



73 
o n 
73 
I 
73 
74 
74 
74 
IG 
74 
75 
46 
80 
81 
KE 
81 
82 
:S 
OU 
82 
ND 
83 
6: 
83 
83 
83 
w! 
GO 
83 
83 
10 
84 
HE 
84 
84 
84 
84 
-P 
84 
84 
84 
S + 

Ml 



POSITION 2,6:? #6 ; " p r e s s FIRE butt 
' : POSITION 4,7:? #6;" to play again" 

FOR 1-53248 TO 53251 : POKE 1,0: NEXT 
SOUND 0,9. 0, 0: SOUND 1 ,0,0,0 

REM fUMJITliill 

IF STRIG ( )-1 THEN 740 

CI -4 :C2-0:C3-0: SCORE ONE- 5 00 : BSW-0 

OPEN #2,4, 0,"D:HI2. DAT" : INPUT #2 , H 
: C L S E #2 

REM IJ ■IHJ!IH»ilJd 

POKE 53278, : POKE 5 3 2 7 7 , : A-USR ( 1 5 
: G T 280 

rem im:»ii»iigmjuiiii in im 

POKE 1560,30:A-USR(LD,0,PM+RN5) :PO 

15 76,0 

REM HllllMlliMIHUH JMHilll 

FOR 1-1 TO 5:F0R J-10 TO 5 STEP -1 
UND 0, J , 1 4 . 8 : SOUND 1,J,2,8:NEXT J:S 
D 0,0,0,0: SOUND 1,0,0,0 

A-USR(LD, 0, PM + 68 + RN5) : FOR J-1 TO R 
0) * 30: NEXT J : A-U S R ( L D , , PM+ 8 8 + R N 5 ) 

SCORE-SCORE + DI F * 2 : POSITION 0,0:? # 
CORE:" ":NEXT I 

IF SCORE>-SCOREONE THEN 833 

GOTO 840 

FOR 1-1 TO 3:P0SITI0N 0,0:? #6;"wo 
: GOSUB 835 : POSITION 0,0:? #6;SC0RE: 
UB 835 : NEXT I 

SCOREONE-SCOREONE+5 00: GOTO 840 

FOR Q-20 TO 1 STEP -4 : SOUND 1,0*5, 
1 5 : NEXT Q : S OUND 1,0,0,0: RETURN 

IF DIF<9 THEN DIF-DIF+1:IF DIF-9 T 

C 1 -4 : C 2- 1 : C3-0 

IF D IF<>9 THEN C 1 -4 : C 2-0 : C 3-0 

REM Him^J'ITl HH 

IF SCORE<BONUS THEN 850 

SOUND 0,25,10,10:BONUS-BONUS+300:P 
E K ( 1 9 ) : I F P<11 THEN POKE 1 9 . : GOTO 

POKE 19.P-10 

POSITION BP0S.12:? #6 : " *" : B POS-B PO 
BSW-BSW+1:IF BP0S>19 THEN BPOS-0 
IF BPOS<>0 THEN W-7:U-1 1 
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GAMES 

/ s 

850 IF BPOS-7 THEN RN2=17:G0T0 390 

851 IF BP0S<>7 THEN RN2-1 

852 IF BPOS-13 THEN RN3-1 07 : RN4-1 07 : GO 
TO 390 

853 IF BP0S<>13 THEN BN3-3 6 : RN4=2 1 

854 IF BPOS-0 THEN W-ll :U = 7 

855 IF BP0S-16 THEN RN3-0 : RN4-0 : RN 5=2 1 
: GOTO 390 

856 IF BP0S<>16 THEN R N 3=3 6 : R N 4= 2 1 : R N 5 
= 

857 IF BP0S-19 THEN RN2-1 8 : RN3=1 7 : RN4 



858 IF BP0S<>19 THEN RN2-1 : RN3-3 6 : RN4 = 
21 

859 IF BPOS-1 AND BSW>0 THEN GOSUB 140 
: GOTO 9000 

869 GOTO 390 

900 REM H'li'iUMIIiT.HIHI 

910 POSITION 5,2:? #6;"TIME'S UP!" 

92 GOTO 720 

990 REM H!Mll:MJl;^illi|ffrTll 

1000 IF BPOS-1 OR BPOS-19 THEN CP-CP- 

1 

1005 CP-CP+1 : I F CP-20 THEN CP=1 

1010 POKE 77, 0:C-ASC(C$(CP) ): RETURN 

1200 IF TIME-10 THEN SETCOLOR 4 , 1 2 , 2 : F 

OR K-1 TO 10: SOUND 3 , K , 1 , 1 : N EXT K : SO 

UNO 3,0,0,0 

1210 IF TIME<>10 THEN SETCOLOR C1.C2.C 

3 

1220 RETURN 

1300 GRAPHICS 0: SOUND 1,55,10,15:? "DI 

SK PROBLEM HIGH SCORE WAS NOT SAVE 

D . . . * : FOR 1-1 TO 500 : NEXT I 

1310 SOUND 0,0,0.0:? "TYPE RUN TO PLAY 

AGAIN" 
1320 TRAP 1300 

1400 FOR 1-1 TO 255 : SOUND 0,I,12.12:SE 
TCOLOR 4, I , 1 0: NEXT I 

1410 FOR BPO-1 TO 5 : FOR BPOT-0 TO 1 9 : S 
OUND 0,BPOT*BPO, 10,12 

1420 POSITION BP0T.12:? #6 ; Z$ ( B P ) : NEX 
T BPOT:NEXT BPO 
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CHICKEN 



A 



"\ 



4Z5 SOUND 0,0.0.0 

1426 POSITION 0,12:? #6 :"«" 

1427 POSITION 0,13:? #6: L$ 

1428 BSW=0 
1430 RETURN 

9000 FOR 1-1 TO 1 50 : NEXT I : POKE 19,99 
GOTO 470 

15000 GRAPHICS 17:P0SITI0N 0,0:? #6; 
' : POSITION 0,1:? #6;"E 
POS ITION 0,2 
15010 ? #6 : l|il|ty ■ilim<i1 : P S I T I N 0, 
3 : ? #6 : IHHlilf fl 
15020 IF PEEK ( 53279 )-3 THEN 15050 
15030 IF STRIG ( ) -0 THEN 16000 
15040 GOTO 15020 

15050 GRAPHICS 17:P0SITI0N 0,0:? #6:"Y 
OUR OBJECTIVE??" : POSITION 0,1:? #6 ; " S I 
MPLE. JUST GET THE" 

15055 POSITION 0,2:? #6 : " c h i c k e n SAFEL 
Y" : POSITION 0,3:? #6;"ACR0SS THE ROAD" 
15060 POSITION 0,4:? #6 : "W i t h o utGETTI 
NG HIT" : POSITION 0,5:? #6;"BY HCTB . " 
15070 POSITION 0,7:? #6:"Y0U MUST LEAR 
N THE" : POSITION 0,8:? #6; 



SCORING SYST 



Hffl." 

15080 POSITION 0,10:? #6;" 

: POSITION 0,11:? #6 ; 

: P S I T ION 0,12 

15 09 ? #6 llimiUlMr 1 POSITION 0, 

13 : ? #6 ;"|Hfl Q^" 

15100 POSITION 0,15:? #6 ;" PL EASE PRESS 

OPTION." 
15160 IF PEEK(53279)-3 THEN 16000 
15170 GOTO 15160 

16000 GRAPHICS 17:P0SITI0N 6,6:? #6:"C 
QiQKeN" : POSITION 0,7 

16100 FOR 1-1 TO 4:S0UND 0,16,6,8:FOR 
J=1 TO 20:NEXT J:SOUND 0,22,6.8:FOR J= 
1 TO 20 : NEXT J 
16150 NEXT I : SOUND 0,0, 0,0 
162 00 ? #6^"l jllJ| »mi'M " : POSITION 4,8: 



II sorts of 
surprises a 
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GAMES 



M6210 ? #6; "REVISED BY": FOR 1-1 TO 200 
: NEXT I : POSITION 4,10:? #6 ;"| 
Q" :MK-50 
16Z20 FOR 1-1 TO 250 : NEXT I 
16230 FOR 1-1 TO 5 : F R J-10 TO 5 STEP 
-1 : SOUND 0, J , 14 , 8 : SOUND 1 , J , 2 , 8 : NEXT J 
: SOUND 0. 8. 0. B-.SOUND 1,0,0,0 
16240 FOR K-1 TO MK:NEXT K : MK-MK-1 : N E 
XT I 
16250 RETURN 



TYPO TABLE 



Var 



^ 



i a b I e che 

Line n um 

4 

15 

52 

70 

120 

232 

290 

340 

385 

430 

470 

495 

527 

713 

722 

740 

825 

841 

855 

1010 

1420 

15050 

15090 

1 6205 



c k s um 

range 

14 

50 

65 

110 

230 

288 

312 

380 

420 

465 

494 

525 

707 

721 

735 

820 

840 

854 

1005 

1410 

15040 

15080 

16200 

16250 



1070383 
Code 
HB 
NJ 
JK 
VV 
OU 
KD 
KH 
UC 
JU 

JI 
vu 

ON 
AW 
AD 
KR 
NR 
II 
I J 
ZO 
KZ 
VF 
LH 
GN 
RH 



Length 
523 
532 
534 
598 
561 
509 
540 
504 
583 
509 
502 
518 
447 
507 
502 
552 
512 
530 
458 
537 
495 
521 
529 
374 
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ATTACK ON THE DEATH STAR 



Attack on the Death Star 



In order to protect your home base from the dreaded Death Star, you are 
launched in your X-wing fighter to attack the enemy. As the simulation 
begins, you are flying "down the trench," the walls of the trench whip- 
ing past. The object: destroy the five radiation vents leading to the Death 
Star's main reactor. If you succeed, the reactor will overheat and self-destruct, 
destroying the Death Star. 

To hit the radiation vents, line up your cursor aiming system, using a 
joystick in Port One, and fire, using the red button. The vents are green oval 
openings in the bottom of the trench. The Death Star has a full complement 
of Tie fighters for its defense. The fighters attack one by one, firing furiously. If 
you are hit too many times, your fighter will explode and crash. To combat the 
Tie fighters, you'll have to wait till the Tie fighter is in the center of the screen 
before you can hit it. 

This game has been improved since it first appeared in ANTIC. It now 

has a scoring line and two new "endings." 

by David Plotkin 
System Requirements: 32K RAM, joystick 

David Plotkin is a Chemical Engineer with Standard Oil of California, and a game programmer by 
avocation. His Attack on the Death Star has been improved since publication, and the new version 
is printed here in the book. Dave programs mostly in BASIC, but with some assembly language routines, 
and his games have appeared in several publications, including ANTIC. 



5 R 

8 R 

OTK 

10 

ORE 

90 

KE 

100 

3) 
5 : G 
110 



***** 



** DEATH 
PLOTKI 



STA 
N R 



R ** 
EVIS 



* * * * 

ED B 



EM 

EM BY DAVE 

IN 1983 

GOSUB 1500: SCORE : S D = 1 2 : B 

-0: F 1 : Fl 1 : GOSUB 800 



COL PEEK( 708 ) 
7 9 , P E E K ( 7 1 ) 

ST=PEEK(632) 
OR (NUMH=RT+4 
0T0 130 

NUML NUML > 20 



POK 
POK 
IF 
AND 



E 7 
E 7 

UN 
ST 



08 . P 
10, C 
UMH = 
= 14) 



EEK( 
OL 

RT A 
) TH 



* * 

Y D . 

= 0:H 

709) 

ND S 
EN S 



A 



{ ST=1 4 ) -20- { ST=1 3 ) 



PL 

ISC 

:P0 

T = 1 
T=1 



:NUy 
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GAMES 

AlH NUMH+(NUML>255) (NUML<0) : NUML - MUBIL+ A 
25 6* (NUML<0)-256* ( MUML>2 5 5 ) 
120 POKE DL4 , NUML : POKE D L 5 , N UMH : N N = 2 • ( 
ST=13)-2*(ST=14):N=H+HN:Y3=Y3+NN 
130 YTEMP=Y:IF SIZEL--0 THEN GOTO 175 
140 IF SIZEL>1 THEN S I Z E L = S I Z E L-1 : Y = 7B 
*(SIZEL=2)+56*(SIZEL=1):8H=68*(SIZEL=2 
)+7B«(SIZEL=1 ) :G0T0 180 

150 IF ABS ( Y-Y2-7 )<5 AND ABS(X-X2)<4 T 
HEN SOUND 1 ,40,8.8: POKE 656 , : POKE 657 
, 1 : SCORE SCORE + 1 0: ? SCOHE:SIZEC 1 . 9 
160 IF ABS(Y3-Y)<3 AND SIZEH<>0 THEN P 
OKE 707,82: SOUND 2 . 1 00 , 8 , 1 : B- B-< 1 : POKE 
656,0:POKE 657,15:? B : FOR W ■- 1 TO 100: 
NEXT W: IF B = 5 THEN 700 
170 SH 84-.S0UND 2 , , , : S I Z E L = : Y = 5 5 
175 IF STRIG(0)=0 THEN S I ZE L = 3 : Y = 8 8 : S 
UNO 2, 1 , 8 , 8 : S H 6 

180 IF (SIZED AND I NT ( ( 3 0-5 * B ) * RND ( 
))-■) THEN SIZEC=Z: Y2=28:X2=120 
190 IF SIZEC=0 THEN GOTO 280 
200 IF SIZE C = 2 THEN GOTO 210 
202 SIZEC=SIZEC-0.1:Y2=Y2-2:X2=X2+5:PO 
KE 53250, X2: F=F+1 : IF F>4 THEN F=1 
205 SH2=27«(F=1)+188*(F=2)+200*(F=3)+2 
1 2 - ( F = 4 ) :SOUND 1 , X2- 1 2 , 1 , 1 : I F SIZEC 
<>0 AND SIZECoi.8 THEN GOTO 240 

207 SH2=BLANK : SOUND 1,0,0.0: GOTO 240 

210 XX=RND(0):Y2=Y2+2*(Y2<78)*(ST=13)- 

2.(ST=14)*(Y2>2 0)+4*(XX>0.8).(YZ<78)-4 
*(XX<0. 1 2 ) - ( Y2>20 ) 

220 FF=FF+2*(X2<112)-2*(X2>130):X2=X2+ 
F F : POKE 5 3 2 5 , X2 : S H 2 = 2 0* ( Y 2<65 AND Y2> 
43 )+40- ( Y2<=43) 

225 IF (SIZEC 1.8 OR SIZEC -0) THEN SH2 
BLANK: SOUND 1 , 4 * ( S I Z E C 1 . 8 ) , 8 , 8 * ( S I Z 
EC=1 .8) 

230 IF (SM-0 AND INT(RND(0)*(16-2*B))= 
0) THEN Y 1 =Y2 : X 1 =X 2-4 : POKE 53249, X1:SM 
= 1 : SOUND 3,150,8,6 
240 IF SM-0 THEN GOTO 280 
250 Y1-Y1+2*(ST-13)*(Y1<7 8)-2*(ST-14) : 
SM SM 0. 25-LV 



102 



ATTACK ON THE DEATH STAR 




r 

25 
= 3 
26 
40 
OU 
00 
26 
65 



5 SHI-BLANK* ( SM=4 ) +1 28* ( SM<4 AND SM> 
) + 1 48- ( SM<3 AND SM> = 2 ) + 1 68 * ( SM<2 ) 
IF SM 4 THEN SOUND 3 . . , : I F (Y1> 
-5* ( LV-=1 ) AND Y1<60+5*(LV=1 ) ) THEN S 
ND 3.100,8,8: SETCOLOR 4 , 5 , 1 2 : S D = S D- 1 
*LV: FOR 0=1 TO 50:NEXT Q 
5 IF SM 4 THEN SM=0:POKE 656 , : POKE 
7,8:? SO:" ": SETCOLOR 4, 0,0: SOUND 3 



270 IF SD<0 THEN SD = : POKE 656,0:POKE 

657,8:? SD:" " :GOTO 600 

280 F1=F1+1 : IF F 1 =4 THEN F1=1 

282 SH4=224*(F1=1)+232*(F1=2)+240*(F1= 

3) 

285 IF SIZEH THEN GOTO 320 

290 IF SIZEH<1 THEN S I Z E H S I Z E H . 5 : S 

UN D 0,20*SIZEH, 10,6: GOTO 400 

300 IF SIZEH = 1 THEN Y3 = 34 + N : S H 3 = 3 7 2 : S I 

ZEH-2:S0UND , 1 , 8 , 3 : X 4 = X 4 + 4 « L V : F R Q 

TO 3:P0KE 5 3 25 2 + Q , X4-4 * Q : N EXT Q 

305 IF Y3>85 THEN SH 3 = B L ANK : S I Z E H = : G 

TO 400+200*(X4>=132) 

310 Y3=Y3+3:SH3=92*( Y3-N>=75 )+104* (Y3- 

N>46 AND Y3-N<75)+116*( Y3-N<-4 6 ) 
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GAMES 

320 IF PEEK(19)>=10 THEN POKE 1 9 , : S I Z\ 
EH=0. 1 :P0KE 707,196 

400 IF YTEMPOY THEN D = US R ( ADR ( E$ ) , P + 
YTEMP , PBt BLANK) : D USR( ADR ( E$) , P0+Y.PB i 

5 H V 

410 D=USR(ADR(E$)+5 0-25*(SIZEC<1.8).P2 
+Y2,PB+SH2):D=USR(ADR(E$)+50,P1+Y1,PB+ 
SHI ) 

420 D=USR(ADR(E$)+25,P3+Y3.PB+SH3):D=U 
SR ( ADR { E$ ) . P4 . PB + SH4 ) : GOTO 90 
600 D = USR( ADR (E$) , P0 + YTEMP, PBi BLANK) : D 
= USR( ADR( E$)+58,P2 i Y2 , PB + BLANK) 
602 D = USR( ADR( E$) ! 50, PI +Y1 , PB (BLANK) : D 
=USR(ADR(E$)+25,P3+Y3,PB+BLANK) 
605 IF SD>0 THEN GOTO 616 
610 FOR W 1 TO 50 : POKE 7 08 , RND ( ) • 25 5 : 
POKE 709, RND(0)»255: POKE 7 1 , RND ( ) • 2 5 
5 

615 SOUND INT(RND( 0)»4) , RND ( ) * 2 55 , 8 , 8 
:NEXT W 

616 NUML PEEK(DL4) : N UMH= P E E K ( D L 5 ) 
620 IF NUMH RT> 4 THEN GOTO 635 

6 25 NUML NUML+2 0: NUMH NUMH i (NUML>255) : 
NUML NUML -256 • (NUML>255) 
630 POKE DL4, NUML: POKE D L 5 , NUMH : G OTO 6 
20 

635 FOR W-120 TO 1 STEP -1 : SOUND 0,100 
,8,W/10:NEXT W 

640 SOUND 0,0,0,0: SOUND 1 , , , : S OUN D 
2,0,0,0:SOUND 3,0,0,0 

645 POKE 708 , 232 : POKE 709,250: POKE 710 
, 132 : POKE 712, 0: POKE 704,90 
650 FOR XNEW=X4 TO 132: FOR Q TO 3:P0 
KE 53252 rQ.XNEW 4.Q.NEXT Q : NEXT XNEW 
655 FOR C 10 TO 100 STEP 10: FOR Y 30 T 
13 STEP -1 :D-USR(ADR(E$) , P0 + Y.PB + 13) 
: SOUND 1 ,Y,6,8:NEXT Y 

657 POKE P4 + INT ( RND ( ) *8 ) ,PEEK(53770) 
660 SOUND 0, 120 C, 8,8 : POKE 711,C:F0R W 
= 1 TO 75 : NEXT W.NEXT C : SOUND 1,0,0,0 
665 D=USR(ADR(ES),P0+ 13, PB+ BLANK) 
670 POKE 623,1 : SETCOLOR 4,0,14:SOUND 

. ,140,8,8:FOR N-14 TO STEP -1 : SOUND 

V y 
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, 140 N*10,8,8 : SETCOLOR 4, 0,N 

673 FOR NN 1 TO 30:NEXT N N : X N X N i 8 : P K 

E 53Z52, 13Z + XN: POKE 53255,120 -XH : NEXT 

N:XN 

677 FOR H= 1 4 TO STEP - 1 : SOUND 0,140- 

N« 1 0, 8 , 8 : SETCOLOR 4 . , N : FOR NN-1 TO 30 

: NEXT NN:XN XN8 

680 POKE 53253, 128+XN: POKE 53254, 124-X 

N:NEXT N:XN : FOR W 1 TO 500 : NEXT W:P0 

KE 53277, : GRAPHI CS 17 

683 SOUND 0,0,0, 0: POSITION 1,8:? #6;"T 
HE DEATH STAR HAS":? #6 :" DESTROYED YOU 
R HOME" :? #6 : " BASE . YOU lost!!!!!'' 

684 IF SCORE>HISCORE THEN HISCORESGOR 
E 

685 ? #6:? #6;" FINAL SCORE '• : SCORE : ? 

#6;" hdie"_llj* 6 ; " t ° play ag 

A I N" : ? #6:" PRESS BliU BUTTON" 

686 ? #6 :" HIGH SCORE " ; HISCORE 

687 IF STR IG ( 0) 1 THEN GOTO 687 

690 B 0: SCORE 0: SO 1200 : F -1 : F1 1 : GO SUB 
836 : GOTO 90 

700 USR( ADR ( E$) , P0.YTEMP , PB, BLANK) : D 
=USR(AOR(E$)+50,P2+Y2.PB+BLANK) 

701 D U S R ( ADR( E$ ) i 5 , PI • Y1 , PB . BLANK) : 
U S R ( ADR ( E$) + 2 5, P3 + Y3 , PB BLANK) 

703 SOUND 1 ,0, 0, : SOUND 2 , , , : S OUND 

3 

705NUML PEEK (DL4) :NUMH PEEK ( DL5) : FOR 

W=1 TO 10: IND=40«(W/2=INT(W/2) )-40»(W 

/2<>INT(W/2) ) 

710 NUML=NUML+IND:NUMH=NUMH+(NUML>255) 

-(NUML<0):NUML=NUML-256*(NUML>255)+256 

* (NUML<0) 

715 SOUND 0,W*20,8,8: POKE DL4,NUML:P0K 

E DL5.NUMH 

720 FOR M=1 TO 1 00 : N EXT M:NEXT W:D USR 

( ADR ( E$ ) , PB i 3 94 , PB + BLANK ) : POKE 53277,0 

: BYT = 7 : L IN = 23 

7 2 5 D $ ( 1 ) - " HBBBB IgBBBBl j P BHHHCgpa®^ k QQ 

@HHaj 4pHZFg|IteHE] k [JB y HBllm U a y BH m^BWia® 

BmE^j|fi@CSlji!i!JL4Mi^JB4L 

7 2 6 D $ ( 8 1 ) ~ ' TMlH Sf li'i'Lllitig mBlfa3@B mHEWBoB 
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GAMES 



r* 



Em U a y SHE k [JJQ y BSE I'MflTT rltll-B \ _EB1BI1 k PHaBllHC 
BpHMSlj PtmHBHil" 

727 D$ ( 1 6 1 )-"H" : POKE DL4 . : POKE DL5.RT 
+ 1 :8TRT-256*(BT+1) + 1 0*20 + 6 : D-USR ( PICT 
,STRT, A D R ( D$) , BYT, LIN. 20) 

728 FOR N-1 TO 1 5 : NEXT N 

730 FOR NN-1 TO 2 00 : SOUND 0,NN,8,14:SO 

UNO 1 , NN + 1 0, 8, 14 : POKE 7 1 2 , 1 4-NN/ 1 5 : N EX 

T NN : FOR NN-1 TO 36 : COL-PEEK ( 708 ) 

732 POKE 708, PEEK ( 7 09 ) : POKE 709,PEEK(7 

10) : POKE 71 0, COL : SOUND , N N * 6 , 8 , 1 4 : S 

UNO 1 ,NN*5,8, 14 

735 FOR MM-1 TO 1 5 : NEXT MM:NEXT NN:P0K 

E 712.0: FOR Q-0 TO 2 : FOR N-1 4 TO STE 

P -1 : POKE 708 + 0, N : SOUND , 1 4 0-1 * N , 8 , 1 

4 

740 SOUND 1 , 152-1 0*N, 8, 14: FOR NN-1 TO 

3 : NEXT NN : NEXT N : F OR NN-1 TO 50 : NEXT 

NN : NEXT Q 
745 FOR N-1 4 TO STEP -1 : SOUND 0,140, 
8,N:S0UND 1 , 1 5 2 , 8 , N : F R NN-1 TO 30 : NEX 
T NN: NEXT N 

7 75 GRAPHICS 17 : POSIT ION 3.3 : ? #6: "CON 
GRATULATIONS UHUU #6;" Y 
0U HAVE DESTROYED" : ? #6 : " THE" 
780 ? #6 ; " death s t a r" : GOTO 684 
800 DIM D$(650) , ES( 80) : FOR A-1 TO 75 : R 
EAD I: E$( A,A)-CHR$(I) : NEXT A 

804 DATA 104,104,133,204,104,133,203,1 
04, 133, 207, 104, 133, 206, 160, 0,177, 206,1 
45,203,200, 192,8,208.247,96 

805 DATA 104,104,133,204,104,133,203,1 
04, 133, 207, 104, 133, 206, 160, 0,177, 206, 1 
45,203,200,192,12,208,247,96 

806 DATA 104,104,133,204,104,133,203,1 
04. 133, 207, 104, 133, 206, 160, 0,177, 206.1 
45,203,200, 192,20, 208,247,96 

810 A-PEEK( 1 06 ) -20 : POKE 5 4 2 7 9 , A : P B-2 5 6 
* A : FOR A-PB TO PB + 247:READ I : POKE A.I: 
NEXT A 

8 15 DATA , , , , , , 1 2 9 , 1 2 9 , 1 5 3 , ,2J J , 2 
31,153,129,129,0,0,0,0,0,0,0,0,0 
,0,66,90,102,90,66,0,0.0,0,0,0,0 
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816 DATA e. 0. 0, 0, . , . 0. 36 , 60, 36 , 0, 0. 
0,0,0,0.0.0.0.24,24,60.60,60,126,255,2 
19,0,24,24,24,60,126,90,0 

820 DATA 0,0,16,16,56,40,0,0,0,0,16,16 
,124,16,16,0,0,0,0,0,0,24,60,126,255,1 
26,60.24,0,0,0,0,0.24,60,126,60,24,0,0 

821 DATA 0,0,0,0,0,24,60,24,0,0,0,0,0, 
0,24,60.36.126.189.90,90,165.255,165,9 
0,90,189,102,60,24,0,0 

825 DATA 0,0,0,24,36,60,60,90,90,36,36 
,36,90,90,60,36,24,0,0,0,0,0,0,0,0,0,0 
.24,36,24,24,24,36, 24, 0, 0, 0, 0, 0, 

826 DATA 16,32,96,184,42,60,8,16,0,0,0 
,0,0,62,8,20,20,8,62,0,0,0,0,0,8,4,6,2 
9,84,60,16,8,0,0,0,0 

827 DATA 6 0,24,255,219,255,153,24,60,6 
0,24, 255, 109, 255, 153, 24, 60, 60, 24, 255,1 
82,255, 153,24,60 

830 POKE 53256, 1 : POKE 53257, 3 : POKE 532 
58,1:P0KE 53259. 1 : POKE 53260.85 

835 FOR A=PB+384 TO PB+1024:POKE A,0:N 
EXT A : RT=PEEK( 1 06 ) -8 

836 POKE 623, 1 7 : X-1 2 1 :X1=X:X2=X: POKE 5 
3248,X:P0KE 53250. X : POKE 53251, X 

840 POKE 88.0:FOR N-0 TO 8 : POKE 89.RT + 
N:? "S":NEXT N : POKE 1 6 , R T : G R A P H I CS 5: 
POKE 559, 

") 

865 POKE 704,98:POKE 705,36:POKE 706,5 
: POKE 707,196:POKE 708,232:POKE 709,2 
50: POKE 710,132: POKE 711,24 
870 nf ( i [.mmm^nniiiiT 



► ►►r^n-i:* ►►►►►► ► 



871 D$ ( 81 )-" 



UUUUUUUU U[j}»]U UUUUUUU UOGCCC 

■uuuuuu 



<AUm§|yUUUUUUUUU0UUUUU0mUUyUU0U0UUU 
[rm »n |)nmnn 

872 d s ( 16 1 )- iiJiiiaiaiM]>tixnxi 
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GAMES 



uuuu 



uuuu 



uuu 



uuuvQcmziauuuuuu-' 

87 3 D$(_2 41 ) -" U U U U U U V PlTXXTIl] I U U U U UCffl 

' n iii ii iin5Mi Biinii r 



UdlO u u u u u u wftiHjBT 

I74~D$(321 )- ll m wM\ 
m»»"fli II II II II II ii ii 




II U 

875 D S ( 4 01 )- 
UUUUUUUUUUJ 

hQuuuuuuuuu 

876 $ ( 4 8 1 

annum 



uuuuuwflflj 
iiiiamafluuu 

- axcg i UH mi 

iiiaamij iiiiiiiiii ri 



UUUUU 

uuuuu 







iiJiiiarnxri|ttME3 

■ 11Jai33113l4|l uuuuu 






|uUUCC(Tg 
FUUWOJ" 
. : POKE 89.RT+1 : FOR N-1 TO 
4 0: G L R R N D ( ) * 3 + 1 : P L T RND(0)*79,RN 
D ( ) * 4 7 : NEXT N 

885 DL-PEEK(560)+256*PEEK(561):DL4»DL 
+ 4:DL5-DL + 5:NUML-0:NUMH-RT + 4:POKE 88, N 
UML:P0KE 89.NUMH 

890 STRT-(RT+4)*256+9*20:A-USR(PICT,S 
TRT , ADR ( D$) . 20,31 , 20) : POKE DL4 , NUML : PO 
KE DL5 ,NUMH : A-DL 

900 DLIC-ADR("HHEQ|4H*Q|EHLQh@" ) :HI-IN 
T(DLIC/256):L0-DLIC-HI*256:P0KE 512, LO 
: POKE 513 , HI 

910 LBASE-DL-2: POKE L B AS E + 4 + 6 , P E EK ( L B 
ASE+40+6)+128 : POKE 54286,192 
920 IF PEEK(A)<>66 THEN A-A+1 : GOTO 920 
930 POKE A , 7 1 : POKE A + 3 , 6 : POKE A + 4,6:P0 
KE A+5 , 65 : POKE A+6 , P E E K ( A+7 ) : P OK E A+7, 

PEEK(A+8) 

940 POKE 656.0:POKE 657,20:PRINT " ETTilil 



E SHIELDS PORTS 



950 POKE 656,0:POKE 657,1:PRINT SCORE: 
POKE 6 56,0: POKE 65 7, 8: PRINT SD : POKE 6 5 
6,0: POKE 657,15: PRINT B 

955 X4-6 : FOR N-0 TO 3 : POKE 53252 + N,X4 
4*N:NEXT N:D-USR(ADR(E$),PB+384+10,P 



v; 
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/B + 2 2 4*) 

960 P'OKE 53277, 3:P0KE 55 9 , 46 : Y-56 : D-US 

R(ADR*(E$) .PB+512+Y, PB + 84) 

980 S'lZEC-0:SM-0:SIZEL-0:N«0:Y3 = 38:SIZ 

EH-0: FF-1 : LV-1 : POKE 656 , 1 : POKE 657 . : P 

R I NT "BEGINNER" 

990 If PEEK(53279)-3 THEN L V-l : POKE 65 

6.1 : POKE 657,0:PRINT "BEGINNER" 

1000*IF PEEK(53279)-5 THEN LV = 2 : POKE 6 

5 6. 1 : P OKE 657,0:PRINT "EXPERT 

1010 IF PEEK(53279)-6 THEN GOTO 1030 

1020 'GOTO 990 

1030 POKE 656 , 1 : POKE 657,0:PRINT " 

1040 SOUND 0. 1 0. 8,3 : P0-PB+512: Pl-PB+64 

0: P2-PB + 768: P3-PB + 8 96 : P4-PB + 3 94 : BLANK- 

524 

1050 SH-84:SH1-BLANK:SH2-BLANK:SH3=BLA 

NK: RETURN 

1500 GRAPHICS 2+1 6 : P S I T I ON 3,4: PRINT 

#6;"D0WN THE TRENCH" 

1510 POSITION , 5 : PRI NT #6;"attack on 

the d e a th" : POSITION 7 , 6 : PRINT #6;"star 

" : POSITION 2 . 7 : PRINT #6;"BY DAVID PLOT 

KIN" 

1520 POSITION 0,8: PRINT #6: 




: POSITION 1,9: PRINT #6 : " p le 
a s e wait 2"0 SEC." 
1530 SOUND 2,55,12,8:F0R WW= 1 T 5 
1540 FOR W-10 TO 100 STEP 2: SOUND 0.W, 
10, 8: SOUND 1 , 1 1 0-W , 1 , 8 : P OKE 7 08.W.NEX 
T W: NEXT WW 
1550 SOUND 2, 0, 0, 0: SOUND 1 , , , : S UN D 


1560 FOR W-10 TO 255 : POKE 710,W:SOUND 
0.W, 1 0, 6 : NEXT W:SOUND , , , : R E T U R N 



TYPO TABLE 



Va r i a b I 
Line 
5 

130 
1 75 
210 



checksum 
n urn range 

- 120 

- 170 

- 207 

- 230 



2394018 
Code 
PO 
GA 
YP 
WT 



Length 
532 ' 
554* 
542 

503 
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240 


- 265 


YD 


548 * 


270 


- 305 


DT 


506 • 


310 


- 610 


RS 


603* 


615 


- 645 


ZM 


504' 


650 


- 670 


KG 


543 • 


673 


- 684 


AW 


509 ' 


685 


- 705 


PQ 


608* 


710 


- 727 


VO 


557' 


728 


- 740 


ME 


569 • 


745 


- 805 


VO 


562 


806 


- 821 


OP 


594 


825 


- 836 


JL 


528 • 


840 


- 871 


WW 


525 


872 


- 877 


LT 


574 


880 


- 910 


PV 


520 


920 


- 960 


JH 


541 


980 


- 1040 


UZ 


538 


1050 


- 1540 


NV 


520 


1550 


- 1560 


VM 


209 
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Speed Demon 

A slick way to circumvent 
Player /Missile programming. 

Speed Demon! is a one-player car-racing game using a joystick in Port 
One. You are given a high-performance stock car which leaks oil every 
now and then. At the start your car is warming up at the gate, waiting 
for the count-down. In the test window you see a prompt for the skill level you 
wish. There are two levels: pressing [1] starts you at the beginner's level; press- 
ing [2] starts you at the pro level, in which your car has a severe oil leak. Once 
the count reaches zero, "Yer Off!" Your objective is to circle the entire course 
three times in as little time as possible. 

Avoid hitting the bales of hay that line the course, and the oil slicks, left 
behind by your car. These cause your car to spin out. You can only resume 
driving when your car has regained traction. 

To start the game, press [START] and get ready to burn rubber!! 

by John Magdziarz 

System Requirements: 16K RAM, joystick 



/*i 



90 

100 

1 10 

120 

130 

140 

150 

R T 

160 

170 

180 



REM »*••**•« SPEED DEMON * 
REM BY JOHN MAGDZIARZ 1982 
GRAPHICS 1+16 

7,8: ? #6 



* * * * * 



A 



POSITION 
POSITION 
POSITION 
FOR LOOP 
POSITION 
1 TO 600 
GOTO 180 
FOR LOOP 
GRAPHICS 



10 
12 
TO 
16 



NEXT 



? #6 
? #6 
1000 
? #6 
T 



ANTIC" 
"presents" 
"speed demon!' 
NEXT LOOP 
wait . . 



FO 



TO 10: NEXT 
POKE 559, 



LOOP: RETU 
REM SHUT 



RN 
OFF 
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SCREEN TEMPORARILY 
190 OPEN #1 ,4, 0,"K:" :REM OPEN KEYBOARD 

FOR DIRECT 
200 A PEEK) 106 ) : POKE 1 06 , A 5 
210 CP = PEEK( 1 06)+1 : POKE 756, CP 
220 CHAR=CP*256 
230 FOR M TO 1023 
240 POKE CHAR+M,PEEK(57344+M) : REM COPY 

CHAR SET FROM ROM TO RAM 
250 NEXT M 

260 FOR NC 1 TO 9 : READ OLD 
270 DI F- ( OLD + 4 + 64 ) *8 

280 FOR M-0 TO 7:READ LINE:REM POKE DA 
TA FOR ALTERED CHARACTERS SET 
290 POKE CHAR i DIF+M, LINE : NEXT M 
300 NEXT NC:REM DATA FOR NEW CHARACTER 
S 

310 DATA 1.136,136,255,255,255,255,136 
. 1 36 

320 DATA 2,60,60,190,190,60,60,190,190 
330 DATA 3,34,34,191,191,191,191,34,34 
340 DATA 4,190,190,60,60,190,190,60,60 
350 DATA 9,0.0,20,20,20,20,0,0 
360 DATA 10,204,204,51,51,204,204,51,5 
1 

370 DATA 11,255,85,255,170,60,20,60,0 
380 DATA 12.0,60,20,60,170,255,85,255 
390 DATA 13,8,42,168,42,170,170,168,40 
400 GRAPHICS : POKE 756,CP:P0KE 559,0 
410 DL = PEEK(560) + PEEK(561 ) - 256 : REM ALT 
ER DISPLAY LIST 
420 POKE DL 3,68 

430 FOR 1 = 6 TO 23 : POKE DUI , 4 : NEXT I 
440 POKE DL+28,4 

450 FOR 1=0 TO 4 : READ COL:REM SET SCRE 
EN COLORS, REGISTERS 0-4 
460 POKE 708 + 1 , COL :NEXT I 
470 DATA 26,0,198,72,5 

480 ? "S":DIM H OR $ ( 4 ) , V E R T$ ( 3 ) : D IM C 
R1$(4) 

490 POKE 559,0:? "H": RESTORE 5 5 : S 1 = 7 
500 FOR 12=1 TO 39 : HOR$ ( 12 , 12 ) -CHRS ( 1 3 
) :NEXT 12 



> 
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A 



510 FOR 1 = 1 TO 30 STEP 3:'VERT$(I.I)-CH 
R$( 13) : V E H T $ ( I + 1 ,1 + 1 )-CHR$(29) : VERT$(I 
+ 2, I + Z)=CHR$(30) : NEXT I 
520 POKE 82,0 
530 REM DRAW PLAYFIELD 

540 FOR L00P=1 TO 8 : RE AD I , J , K , L : P OS I T 
ION I , J : ? H0R$(K,L) : NEXT LOOP 
550 DATA 0,0,1,39.28,3,1,9,3,6,1,20,25 
,6,1,8,0,9,1,19,3,12,1,13,15,15,1,22,0 
.18,1,39 

560 FOR L P= 1 TO 27:READ I , J , K , L : POS I 
TION I , J : ? VERT$(K,L) :NEXT LOOP 
570 REM DATA FOR PLAYFIELD 
580 DATA 0,0,1,30,0,10,1,22,3,1,1,1,3, 
3,1,12,6,3,1,9,9,1,1,9 

590 DATA 13,3,1,9,17,1,1,12,21,3,1,9,2 
5.1,1,28,25.11,1,6,29,9,1,18 
600 DATA 32,7,1,18,36,4,1,6,35,6,1,21, 
36,13,1,6,38,1,1.30 

610 DATA 38,11,1,24,19,10,1,6,15,13,1, 
6,12,14,1,12,9,13,1,9 

620 DATA 6,14,1,12,3,13,1,9,22,7,1,6,2 
1,9,1,12,22,13,1,6 
\ 63 POSITION 3,19:? "I DRIVER iTIMElL/ 
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API" 

640 POSITION 3,20:? " 

650 POSITION 3,21:? ' I PLAYER #1 I I 

I" 

66 POSITION 3,22:? " 

670 POSITION 24,19:? C H R$ ( 1 24 ) : C H R $ ( 2 9 

); CHRS (3 0) ; CHRS ( 1 24) : CHRS (29) ; CHRS ( 30) 

;CHR$(124);CHR$(29);CHR$(30);CHR$(124) 

680 POSITION 26,20:? C H R $ < 14) : SPEED 

" ; CHRS ( 14) 
690 POSITION 26,21:? CHR$(2);' DEMON 
" ; CHRS (22) 
700 POSITION 24,15:? C H R$ ( 1 5 ) : P OS I T I N 

24,18:? CHRS( 16) 
710 FOR 1=1 TO 4 : CR1 S ( I . I )-CHR$ ( 1+132) 
:NEXT I:LAP1=-1:OK=0:AG=0:TIME1=0:LP=1 
720 POSITION 23,16:? C R 1 $ ( 1 , 1 ) : X 1 =2 3 : Y 
1-16 

730 POKE 559.34: POKE 752 . 1 : POKE 53279, 


740 SOUND 0,170,4,4 

750 POSITION 26,19:? "WHAT LEVEL?" ; :GE 
T #1 ,LEV 

760 IF LEV=49 THEN SC=45:G0T0 790 
770 SC=10 

780 IF LEV<>1 AND LEV<>50 THEN 750 
790 POSITION 26,19:?" 
800 REM 

810 GOSUB 1280 

820 FOR G = 5 TO 1 STEP -1 : POSITION 23,2 
1:? G : SOUND , 4 , 1 , 4 : F R T 1 TO 100:11 
EXT T : SOUND , , , : G OS U B 1 70 : NEXT G 
830 POSITION 23,21:? " " 
840 SOUND 0,85,6,5 
850 POKE 20,0:POKE 1 9 , : REM RESET REAL 

TIME CLOCK 
860 REM START OF GAME ROUTINE 
870 POSITION 15,21:? PEEK(19):IF PEEK( 
19)>98 THEN 480 
880 IF PEEK(53279)=6 THEN 490 
890 IF OK1=1 THEN 870 
900 IF AG 1 THEN 1200 
910 S=STICK(0) : IF S=15 OR S=10 OR S=6 



^ 



114 



SPEED DEMON 



/: 



v. 



OR S-5 OR S-9 THEN S-S 1 

920 S1-S 

930 REM READ STICK 

940 ON S-4 GOTO 9 6 0,970,980,0,990,1000 

, 1010,0, 1030, 1040 

950 GOTO 910 

960 GOTO 870 

970 GOTO 870 

980 X1L-X1 + 1 : Y1L-Y1 : P1-1 :GOTO 1070 

990 GOTO 870 

1000 GOTO 870 

1010 X1L-X1-1 : Y1L-Y1 : P1-3:IF (X1-Z4 OR 

X1-Z5) AND (Y1-16 OR Y1-17) THEN 870 
1020 GOTO 1070 

1030 X1L-X1 : Y1 L-Y1 + 1 : P1-4 :GOTO 1050 
1040 X1L-X1 : Y1L-Y1-1 : P1-2 
1050 IF (S-14 OR S-13) AND (X1-24) AND 

(Y1-16 OR Y-17) THEN S-7:G0T0 940 
1060 REM CHECK COLLISIONS 
1070 LOCATE X1L ,Y1L,Z1 POSITION X1L,Y1 
L:PUT #6,Z1 : LX-X1 :LY-Y1 
1080 IF Z1-17 THEN POSITION X 1 , Y 1 : ? " 
" : X 1 -X 1 L : Y1-Y1L 
109 IF Z1<>3 2 THEN 1170 
1100 REM MOVE CAR 

1110 POSITION XI . Yl : ? " " : POSITION X1L 
,Y1L:?. CR1$(P1,P1):IF P1<>LP THEN GOSU 
R 1350 

1 120 LO-P1 : X 1 -X 1 L : Y1-Y1L 
1130 LF X 1 -24 AND (Y1-16 OR Y 1 -1 7 ) THE 
N LAP 1-LAP 1 + 1 : SOUND 2,50,12,10:GOSUB 1 
70: POS.ITION 20,21:? LAP1 
1140 SOUND 2,0,0,0 
1150 IF LAP1-3 THEN POSITION XI, Yl:? " 

'.SOUND 0,0,0,0: GOSUB 1290: GOTO 640 
1 160 GOSUB 1 230: GOTO 870 
1170 K,-INT(RND(0)*3+1) 

1180 FOR 1-14 TO STEP -2:S0UND 1,100 
,0,1 : GOSUB 170: NEXT I 

1190 FOR G-1 TO K : F OR 1-1 TO 4:P0SITI0 
N XI, Yl:? CR1$( I , I ) : AG-1 : GOTO 870 
1200 NEXT I:NEXT G : AG- : P S I T I N XI, Yl 

? CR1 $ ( PI , PI ) 
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1210 

1220 
1230 
1240 
1250 
1260 
ION 



GOTO 910 

REM OIL SLICK PLACEMENT ROUTINE 
I-INT ( RND ( ) *SC+1 ) 
IF 1-7 THEN GOSUB 1260 
RETURN 

LOCATE LX,LY,Z:IF Z-32 THEN POSIT 
LX.LY:? CHR$( 17 



LX.LY 



26,20: ? "GAME OVER 



1270 POSITION 

1280 RETURN 

1290 POSITION 

ITION 25,21 :? " 

1300 POKE 53279,0 

1310 S2-PEEK (532 79) 

1320 GOTO 490 

1330 RETURN 

1340 REM CAR TURNING SOUND 

1350 SOUND 2 ,5 , 0,8: SOUND 3 

X-l TO 1 : N EXT X : S OUND 2, 



IF Z-32 
: RETURN 
PUT #6 ,Z : RETURN 



POS 



IF S2<>6 THEN 1310 



2, 10,8: FOR 
0,0:SOUND 3 



1360 RETURN 



TYPO TABLE 



Var 



I ab I f 

Line 

80 

200 

320 

440 

560 

670 

740 

860 

980 

1100 

1200 

1320 



checksum 

n um range 

- 190 

- 310 

- 430 

- 550 

- 660 

- 730 

- 850 

- 970 

- 1090 

- 1 190 

- 1310 

- 1360 



1065147 
Code Length 



OP 
JG 
XV 
OY 
BX 
PS 
AF 
NF 
XZ 
QA 
FT 
GX 



480 

394* 

436* 

568# 

514* 

5 4 3_* 

516' 

403 

462* 

524* 

353' 

21 ]• 



116 



BATS 






Bats 



The objects of Bats is to fly your bat through a cavern while avoiding 
the walls and eating insects. You score points for every insect eaten. 
Pressing the fire button causes your bat to fly higher, releasing it 
causes the bat to fall. Your bat always flies steadily forward. You start over 
after you either score 300 points or you lose your bats. You lose all points if 
you hit a stalactite. There are poison bugs, the color of your bat. Eat one of 
these and your bat dies, you lose all points, and 100 penalty points are 
deducted. 

The cavern narrows as the game progresses. You get a bonus bat for every 
1000 points, with four bonus bats maximum. The game ends when all bats are 
dead. by StanOckers 

System requirements: 16 RAM, joystick 



r, 



REM ******* BATS ********** 
20 REM BY STAN 0CKERS 3-82 
30 DIM ZZ$(32):F0R 1-1 TO 3 2 : R E AD A:ZZ 
$( I )=CHRS( A) : NEXT I : GOSUB 1 24 : CL R 
40 DATA 104.104,133.204,104,133.203,10 
4, 133. 206, 104, 133, 205, 162, 4, 160,0 
50 DATA 177,203,145,205,136,208,249,23 
0,204, 230,206,202,208, 240,96 
60 TRAP 60:? "# PLAYERS "::P0KE 764,25 
5 : INPUT NP 

70 REM ** PM GRAPHICS ** 

80 DIM D$( 1 ) , F$( ( INT( ADR( D$) /1 024)+1 ) * 
1024-ADR(D$)-1 ) ,PM$(384) ,M$(128) ,P$(12 
8) ,MM$( 8) 

90 RESTORE 10 0: FOR 1-1 TO 8 : R E A D A:MM$ 
(I)-CHRS(A) : NEXT I 
100 DATA 3.3,12,12,48,48.192.192 
110 PM$-CHR$(0) :PM$(384)-CHR$(0) :PM$(2 
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)-PM$ :M$=PM$ : P$-M$ 

120 REM ** MISSILE COLORS ** 

130 POKE 704,14: POKE 705,39:POKE 706,5 

4 : P K E 7 7,70 

140 REM " VBI ROUT. TO MOVE MISSILES 

* • 

150 FOR 1-1536 TO 1 566 : READ A:POKE I, A 

:NEXT I 

160 DATA 104,160,14,162,6,169,7,76,92, 

228,90,120,150,180,162,3,222,10,6,189, 

10,6,157,4,208,202,16,244,76,98,228 

170 REM ** BAT IMAGES ** 

180 DIM BATDN$(5) : BATDM$-P$ : FOR 1-2 TO 

4 : READ A : B ATDN$ ( I , I ) -CH R$ ( A ) : NEXT I 
190 DATA 24,165,66 
200 DIM BATUPS ( 5 ) : BATUP$-P$: FOR 1-2 TO 

4 : R E AD A : B ATU P$ ( I , I ) -CH R$ ( A ) : N EXT I 
210 DATA 66,165,24 

220 POKE 54279. A D R ( PM$ ) / 2 56 : POKE 559,4 
6 : POKE 53277, 3 : POKE 6 23 , 4 : A-US R ( 1 5 3 6 ) 
230 REM ** STALACTITES AND STALAGMITE 

5 ** 
240 DIM C$(42) ,U$(42) : C $-"***** $»/o* *** * 

*&":U$-")( ■******••; FOR 1-1 TO 14 

:C$(I+14)-CHR$(ASC(C$(I))-32) 

250 U$(I+14)-CHR$(ASC(U$(I))-32):C$(I+ 

28)-CHR$(ASC(C$(I))+128):U$(I+28)-CHR$ 

( A S G ( U $ ( I ) > + 1 2 8 ) : NEXT I 

260 DIM P(NP) ,SCORE(NP) .TOTAL(NP) , BN(N 

P) , BONUS ( NP ) 

270 W-7: P-0: POKE 82,0 

280 FOR 1-1 TO NP:SCORE(I)-0:TOTAL(I)- 

0:BN(I)-3:BONUS(I)-1000:NEXT I : NXTCV-3 

00*NP 

290 REM ** CHANGE WIDTH OF CAVERN ** 

3 00 IF W>3 THEN W-W-1 

31 GOSUB 660 

320 P-P+1 : IF P>NP THEN P-1 

330 IF BN(P)-0 THEN 320 

340 M$-PM$:FOR 1-0 TO 3 : M$ ( YST + 5 *W+W* 

(3-1) )-MM$(2*I+1 ,2*1+2) :NEXT I 

350 REM ** MAIN LOOP ** 

i 360 POKE 656 , 1 : POKE 657,22:? " Pull Jy 
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JHgS 



i/lAJl^ 



ukult* 



*•* I . «"» V E f* **JL 



t >. OUMI> 



o y s t i c k" 

370 IF S T I C K ( ) <> 1 3 THEM 370 

380 REM ** SCORECARD ♦* 

390 ? CHR$( 125) : GOSUB 1 08 : POKE 656,0: 

POKE 657,26:? "PLAYER #":P 

400 POKE 656 . 1 : POKE 657,24:? "Round 

Tot a I" ; : GOSUB 1 100 

410 POKE 53248 ,30: YPOS = YST + 20: POKE 532 

78,0:T-0: DIS-12 

420 FOR XPOS-47 TO 2 0: POKE 53248, XPOS 

:IF STRIG(0)-0 THEN Y P 0S = Y P S-1 : P $ ( Y PO 

S)-BATUP$ 

430 IF STR I G ( ) -1 THEN Y P S=Y P 0S+ 1 : P $ ( 

YPOS)-BATDN$ 

440 IF PEEK( 53256 )>0 THEN POKE 1546,0: 

TOTAL(P)-TOTAL(P)-100:GOTO 570 

450 IF PEEK(53257)>0 THEN POKE 1547,0: 

GOSUB 1 130 

460 IF PEEK(53258)>0 THEN POKE 1548,0: 

GOSUB 1130 

470 IF PEEK(53259)>0 THEN POKE 1549,0: 

GOSUB 1130 

480 IF PEEK(53252)>0 THEN 570 

490 NEXT XP0S:P$-PM$ 

500 IF SCORE ( P)<300 THEN 41 
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S s 

510 TOTAL(P)-TOTAL(P)+SCORE(P):SCORE(P 

)-fl: GOSUB 1110 

520 IF T0TAL(P)>B0NUS(P) AND BN(P)<4 T 

HEN BONUS(P)-BONUS(P)+1000:BN(P)-BN(P) 

+ 1 : GOSUB 1060:DIS-10:T-30:GOSUB 790 

530 FOR 1-1 TO 30 : GOSUB 1 1 2 : F R J-1 T 

30: NEXT J : GOSUB 1 100: NEXT I 

540 IF P-NP THEN 300 

550 GOTO 320 

560 REM ** LOSE A BAT ** 

570 DIS-1 : T-9 : GOSUB 790 

580 YPOS-YPOS+1 : P$( YPOS ) -BATDNS : POKE 5 

3278,0: SOUND 1 , Y P S , 1 , 1 : I F PEEK(5325 

2)-0 THEN 580 

590 GOSUB 800: P$-PM$ : S CO R E ( P ) -0 : BN ( P ) - 

BN(P)-1 : GOSUB 1 08 : I F BN(P)-0 THEN POK 

E 6 56,0: POKE 657,6:? " ' : GOSUB 830 

600 GOSUB 1090: FOR 1-1 TO NP:IF BN(I)> 

THEN 530 

610 NEXT I : GOSUB 1 1 5 : G R A PH I CS 17: P S I 

TION 5,2:? #6:"Q0mE vQQ" : F R 1-1 TO N 

P : POSITION 3,2 + 2*1:? #6 ; "Ql a y s r #" ; I ; 

620 ? #6:" - " : TOTAL ( I ) : NEXT I:POSITIO 

N 3.23: ? #6 ;" PRESS ANY KEY" : 

630 FOR 1-1 TO 300 : NEXT I : GOSUB 820 : I F 

FL-0 THEN 630 
640 GOTO 270 

650 REM *> DRAW CAVERN ** 
660 GOSUB 1 150 : GRAPHICS 2 : GOSUB 1 1 7 : P 
OKE 77, 

670 DL-INT ( BND ( ) * (8-W) )+1 : YST-8* (DL+ 
1) 

680 FOR X-0 TO 1 9 : GOS U B 770:Y-0: FOR I- 
R+7-DL TO R+6 : POSITION X,Y:? #6;C$(I,I 
) : Y-Y+1 :NEXT I 

690 FOR 1-1 TO W:POSITION X,Y:? #6;" " 
: Y-Y + 1 -.NEXT I 
700 IF DL+W>-10 THEN Y-Y- 1 : POSITION X, 

Y:? #6: :GOTO 720 

710 GOSUB 7 7 0: FOR I-R TO R + 9-D L-W : POS I 
TION X,Y:? #6; U$ ( I , I ) : Y-Y+1 :NEXT I 
720 IF DL<-1 THEN DL-2:G0T0 750 
730 IF DL>-10-W THEN DL-9-W:G0T0 750 
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DL-DL + I NT ( RND( ) * 3 ) - 1 
750 NEXT X 
760 RETURN 

770 R-INT ( RND ( ) *6) *7+1 : RETURN 
780 REM ** SOUND SUBR' S ** 
790 FOR 1-15 TO STEP -1 : S OUND 0,I,DI 
S,I:FOR J-1 TO T:NEXT J:NEXT I : R ETURN 
800 FOR 1-10 TO 2 STEP -2 : SOUND , R ND ( 
0) * 2 5 5 , 8 , I : SOUND 1 , R N D ( ) * 2 5 5 , 8 , I : F R 

J-1 TO 3 : NEXT J:NEXT I 
810 SOUND 0,0,0, 0: SOUND 1 , , , : R E TURN 

820 RESTORE 1 05 : LS-3 : L L-5 : G OS U B 840: 

RETURN 

830 RESTORE 1000: LS-20: LL-10 

840 FL-0 

850 READ I,J:IF 1-3 THEN RETURN 

860 IF 1-0 THEN 890 

870 IF PEEK(53775)<255 THEN FL-1 : RETUR 

N 

880 SOUND 0, I , 1 0, 1 0: SOUND 1,1-2,10,6 

890 FOR 1-1 TO J:FOR K-1 TO LS : NEXT K: 

NEXT I : SOUND 0,0,0,0: SOUND 1,0,0,0 

900 FOR 1-1 TO LL : NEXT I : GOTO 850 

910 RESTORE 1 1 : L S- 1 2 : L L-1 2 : G OS U B 840 

920 IF FL-1 THEN RETURN 

930 RESTORE 1 030: GOSUB 840 

940 IF FL-1 THEN RETURN 

950 RESTORE 1 01 0: GOSUB 840 

960 IF FL-1 THEN RETURN 

970 RESTORE 1 040: GOSUB 840 

980 IF FL-1 THEN RETURN 

990 FOR 1-1 TO 3 : NEXT I : GOTO 910 

1000 DATA 243,4,243,4,243,1,243,4,204, 

4,217,1,217,4,243,1,243,4,255,1,243,6, 

3,3 

1010 DATA 243,1,217,1,204,1,182,1,162, 

1,204,1,162,1,0,1,173,1,217,1,173,1,0, 

1.182,1,230,1,182,1,0,1 

1020 DATA 243,1.217,1,204,1,182,1,162, 

1 ,204, 1 , 162, 1 , 121 , 1 ,3,3 

1030 DATA 136,1,162,1,204,1,162,1,136, 



V: 



3 , 3 
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DATA 162, 1 ,204, 1 , 162, 1 , 121 , 1 ,243, 
4,3,3 

1050 DATA 81,4,85,2,102,1,108,1,121,6, 
108,1,102,1,81,2,81,2,85,2,102,1,108,1 
,121,8 

1060 DATA 108,2,91,2,102.2,108,2.121,1 
,128,1,121,1,108,1,102,2,121,2,81.4,10 
2,4,121,8,3,3 

1070 REM ** SUBR. TO INDICATE BATS LE 
FT ** 

108 POKE 656,0: POKE 6 5 7,6: ? " 
: POKE 6 5 7 , 6 : F R 1-1 TO BN ( P ) : ? '+ " ; : N 
EXT I : RETURN 
1090 POKE 656 , 1 : POKE 657,5:? SCORE(P); 

":RETURN 
1100 POKE 6 5 6,1 : P K E 657,12:? TOTAL(P) 

": RETURN 
1110 POKE 6 5 6, 1 : POKE 6 5 7,5: ? " 
RETURN 

1 12 POKE 656, 1 : POKE 65 7, 12:? " 
: RETURN 

1130 GOSUB 790 : POKE 5 3 2 7 8 , : S C R E ( P ) =S 
C0RE(P)+25:G0T0 1090 

1140 REM ** SUBR. TO REMOVE PM GR. ** 
1150 POKE 53277, : POKE 54272, : F R 1 = 5 
3261 TO 53264:P0KE I , : NEXT I : RETURN 
1160 REM ** SUBR. TO INSERT PM GR. ** 
1170 POKE 53277, 3 : POKE 5 5 9 , 46 : ST A R T- ( P 
EEK( 1 06) + 1 ) : POKE 756 , START 
1180 REM ** ALTER DISPLAY LIST ** 
1 190 A-PEEK(560)+256*PEEK(561 ) 
1200 IF PEEK(A)<>66 THEN A-A+1 : GOTO 12 
00 

1210 POKE A , 7 : POKE A + 3 , 6 : POKE A + 4 , 6 : P 
OKE A+5,6 
1220 RETURN 

1230 REM ** CHANGE CHARACTER SET ** 
1240 POKE 1 06 , PEEK( 1 06 ) -5 :GRAPHICS 0:S 
TART-(PEEK(106) + 1)*256:POKE 756, START 
/ 25 6 : POKE 752, 1 

1250 ? "INITIALIZING 

1260 A-USR (ADR (ZZ$), 57344, START ):RESTO 
i BE 1290 
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BATS 



1 27 
RN 
1 28 
T , Z 
1 29 
.60 
1 30 
131 
1 32 
55 
1 33 
7,2 
134 
135 
55 , 
136 
1 37 



READ X : I F X = -1 THEN RESTORE : RETU 

FOR Y = TO 7 : RE AD Z:POKE X + Y + STAR 

: NEXT Y : GOTO 1 270 

DATA 32,255.255,127,127,126,62,62 

DATA 40,60,28,28,24,8,8,8,8 

DATA 48,255,127,126,60,56,24,8,8 

DATA 56,8,24,28,124,124,254,254,2 

DATA 64,60,126,126,126,126,126,12 

55 

DATA 72,16,16,16,16,16,24,60,60 

DATA 80,255,255,255,255,255,255,2 

255 

DATA 88,0,24,24,165,165,66,66,0 

DATA -1 



TYPO TABLE 



Variable 


checksum - 


■ 1 034021 




Line 


n um range 


Code 


Length 


10 


- 100 


DF 


522 


110 


- 200 


EF 


518 


210 


- 280 


OX 


551 


290 


- 400 


UG 


518 


410 


- 500 


DE 


502 


510 


- 590 


KF 


550 


600 


- 680 


LG 


582 


690 


- 800 


FH 


606 


810 


- 910 


TW 


514 


920 


- 1 030 


YJ 


444 


1040 


- 1 1 10 


HK 


509 


1 120 


- 1210 


MZ 


520 


1220 


- 1330 


GD 


463 


1340 


- 1370 


EY 


112 
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Tie*Fighter 



Tie-Fighter is a game for the ATARI 400 or 800 computer requiring 
Atari BASIC 16K for cassette or 24K for disk system. The object of 
the game is to destroy the Tie-Fighters before they destroy you and 
your Rebel Base. You have a pilot's perspective into space, with cross-hairs in 
the middle of the screen. An enemy Tie-Fighter appears and approaches. By 
moving the joystick you can maneuver to bring the enemy into your sights. 
Push the button to fire at him. If you don't hit the Tie-Fighter directly it may 
take several shots to bring him down. If he manages to escape your pursuit (go 
off the screen) he will join other successful fighters attacking your base. If 10 
Tie-Fighters get past you, your base is destroyed. 

This game has four levels of difficulty, but as you get better the game speed 
will continue to increase even beyond level four. You start out the game with 
40 units of energy. Each time you fire, the energy will go down one unit. When 
the energy runs out or when 10 Tie-Fighters have escaped, the game will be 
over. For every 10 points (or hits), your energy will be refueled to 40 units again 
and all misses will be cleared. There is a time limit for you to destroy the Tie- 
Fighters. When the timer runs out, the Tie-Fighter on the screen will be 
cleared and it counts as if you had let the Tie-Fighter escape. Pushing the space 
bar while you are playing will freeze the game. Pushing the space bar again will 
enable you to continue where you left off. 

Notice the smooth animation of the Tie-Fighter. This is due to the fast 
string-handling ability of Atari BASIC. The PM$ is defined to be the 
Player /Missile Base. When a player needs to be moved, all the program has to 
do is to assign the player's data(PO$) to the PM$. 

Variables: 

A — check collision flag. 

C — sound counter. 

E — the units of energy. 

H — horizontal movement flag. 

HARDERS - level of difficulty. 
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MI — misses (Tie-Fighters escaped). 

PO — location of player within Player /Missile Base. 

PO$ - Player data. 

PM$ — Player/Missile Base. 

R — random number. 

S - STICK (0). 

SC — score or hits. 

T — units of time. 

V — vertical movement flag. 

X — horizontal coordinate of Player 0. 

Y — vertical coordinate of Player 0. 



by Jimmy and Tommy Sa 



System Requirements: 16K RAM, joystick 



r. 



u 

20 
30 

1 

40 
50 
OL 
,8 
60 
70 
80 
99 
90 



REM ***TIE-FIGHTER*** 
REM BY JIMMY AND TOMMY SA 
GOSUB 1040:GOSUB 250:GOSUB 



400: GOTO 



PLOT LASER ROUTINE 



REM 

SOUND 0,1,4,6 
OR I : PLOT 0,89 
9:DRAWT0 75,37 

POKE 53278, 15 



FOR 1-1 TO 4 
DRAWTO 75,37 
NEXT I : E-E-1 
POKE 53249,0 



STEP 
PLOT 



3:C 
159 



IF 
IF 



A>0 
E-0 



THEN 
THEN 



SOUND 0,0 
POP : POKE 



0, 0: GOSUB 540 
53248 , 0: GOTO 



SC 



MI 



MISSES" 



100 
110 
+ Y + 
KE 
120 
) :Y 
130 
140 



MAIN LOOP 



^ 



REM 

POKE 7 7 , : POKE 5 3 24 8 , X : PM$ ( P + Y , P 
7 ) -P0$ : SOUND 0, 1 , 2 4 , 4 * ( S<>1 5 ) :P0^ 
709 , 1 10-( R<0. 1 ) * 1 10 

SOUND 1,20,8,1:C-C+1:T-T-1:R-RND(0 
-Y+V:X-X+H*HARDERS:S-STICK(0) 

IF T<1 THEN GOSUB 750: GOTO 110 

IF C>6-HARDERS THEN SOUND 1,230,10 
C-0 
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150 

160 

HEN 

170 

A = P 

180 

190 

200 

210 

220 

230 

240 

250 

260 

1 

270 

280 

290 

KE 

300 

310 

AD 

320 

83. 

7 ,4 

330 

,67 

35, 

340 

,35 

1 , 5 

350 

,77 

360 

1 59 

370 

159 

380 

390 

400 

41 

420 

430 



? "ffl 
IF X>204 OR 
GOSUB 750 
IF STRIG ( 0)= 
EEK( 53260) : GO 
V— (S-13 OR 
H=-(S-7 OR S 
IF V-0 THEN 
IF H=0 THEN 
IF PEEK( 764) 
G T 1 1 
REM 
GRAPHICS 



X<47 OR Y>90 OR 
5324 



TH 
SUB 
S-5) 
= 6) + 
V--( 

H — ( 

<>25 



EN P 
5 : S 

+ (S- 
(S = 9 
R>0. 
R>0 . 
5 TH 



OKE 
OUND 
14 

OR 
98) + 
98) + 
EN G 



DRAW PLAYFIELD 



OKE 752 , 
POKE 708, 106: SETCOLO 



PO 
2, 



R S = 

S = 1 1 
(R<0 
(R<0 
OSUB 



KE 8 
6,0: 



Y<14 

9,11 
,0,0 
10) 

) 

.97) 

.97) 

81 



T 
9 : 



2,0 
COLO 



A=PEEK( 5 
IF PEEK( 
POKE A, 7 

A + 5 ,6 
RESTORE 
FOR 1-1 

A , R : DRAWT 
DATA 75, 

42,83,42, 

0,67,38,1 
DATA 72, 

,42,72,42 

97,36,97, 
DATA 59, 

,42,35,34 

8,79,58,7 
DATA 77, 

,23,71,28 
COLOR 2: 

,RND( 0)*8 
COLOR 1 : 

,RND( 0) *8 
RETURN 
REM 
DIM PM 
A-ADR ( PM 
PMBASE-I 
IF PMBAS 



60)+PEEK( 561 ) * 25 6 + 4 
A)<>66 THEN A = A+1 : GOTO 2 
0: POKE A + 3,6: POKE A + 4 , 6 : 



R 



80 
PO 



TO 28 : READ A , R : PLOT A, R : RE 

A , R : NEXT I 

0,75,33,75,42,75,76,78,42, 

83,40,83,38,139,38,67,42,6 

9,38,67,36,67,33,67,33 

33,78,33,83,33,83,33,83,36 

,113,34,113,42,105,41,105, 

40,90,39,90,37,59,37 

39,52,40,52,36,44,35,44,41 

,71,48,79,48,77,53,73,53,7 

3,63,77,63 

14,73,14,71,18,79,18,73,23 

,79,28,72,28 

FOR A-=1 TO 10: PLOT RND(0) * 

9 : NEXT A 

FOR A-1 TO 20 : PLOT RND ( 0) * 

9 : NEXT A 



SET UP PLAYER-MISSILE GRAPHICS 



2048) , P0$( 7) : X-70: Y = 2 

$) 

NT( A/1024) *1024 

E<A THEN PMBASE-PMBASE+1 



«, 
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440 S=PMBASE-A 

450 POKE 559,46:P0KE 54 2 7 9 , PMB AS E/ 2 5 6 : 

POKE 704, 1 02: POKE 53277,3 

460 PM$=CHRS(0):PMS(2048)=CHRS(0):PMS( 

2)=PM$ 

470 RESTORE 490 

480 FOR 1-1 TO 7 : R E A D A : P 0$ ( I , I ) »C H R $ ( 

A) : NEXT I 

490 DATA 0,153,189,255,189,153.0 

500 P0=S+512:PM$(P0+Y,P0+Y+7)=P0$:POKE 

53248, X:PM$(P0+183,P0+183)=CHR$(28) 
51 GOSUB 660 

520 RETURN 

530 REM HIJIIII'll 

540 SOUND 1,0,0,0 

550 FOR 1 = 1 TO 30:POKE 7 04 , RN D ( ) * 2 + 

1 4 : NEXT I 

560 FOR 1-1 TO 30:POKE 7 4 , R N D ( ) * 2 + 

14:PM$(P0+Y+I/3,P0+Y+I/3)-CHR$(RND(0)* 

20) 

570 SOUND 0, 200+1 , 8 , 16-1/2 : SOUND 1,9*1 

, 16, 1 6-1 /Z : SOUND 2 , 2 + 1 , 8 , 1 5 : N E XT I 

580 SOUND 0, 0, 0, 0: SOUND 1 , , , : S UN D 

V J 
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2ggg 

59 0PM$(Pfl+Y,P0+Y+12)-"HlQ 
REM 12 HEART-CHARACTERS 
6 00 SC-SC+1 



fflSO 



Bffl' 



WARNING ROUTINE 
ALERT 



610 IF SC/10<>INT(SC/10) OR SC-0 THEN 

640 

620 HARDERS-HARDERS+1 :E-40:MI-0 

630 FOR 1-1 TO 60 : POKE 5 3 2 7 9 , RND ( ) * 2 : 

NEXT I 

64 X-INT( RND(0)*1 0+7 0) : Y-2 0: PM$(P0+Y 

, P0 + Y + 7 ) -P0$ : POKE 7 04 , 1 02 : POKE 53248,0 

650 REM 

660 ? "H RED 

670 FOR R-1 TO 2 : F R 1-1 TO 2 : SOUND 0, 

116*1, 10,8: FOR A-1 TO 20 : NEXT A : SETCOL 

OR 4,4,6 

680 FOR A-1 TO 1*28: NEXT A:NEXT I 

690 SOUND R,0,0,0:FOR A-1 TO 50:NEXT A 

: N EXT R 

700 T-10 0+HARDERS*10+100*(HARDERS-1):V 

-1 : S ETCO LOR 4 , , : SO UND 0,0,0,0 

710 ? fvyjUifj rcira misses- : - ";E;- 

" ;SC;" " ;MI : ? 



720 FOR 1-1 TO 1 00 : N EXT I 

730 SOUND 1 ,24,8, 1 : POKE 5 3 248 , X : R ET U RN 

740 REM HUlJTTTflTTJ 

750 SOUND 0. 0, 0, 0: SOUND 1 , , , : MI-MI+ 

1 

76 PM$(P0 + Y, P0 + Y + 12)-"[SMaa3MSSI15]5][l" : 

REM 12 HEART-CHARACTER 

770 FOR 1-1 TO 1 : POKE 53 2 7 9 , RND ( ) * 1 : 

NEXT I 

780 IF MI-10 THEN POKE 53248, : PO P :G0 

TO 920 

790 GOSU B 640 : SOUND 1,20,8,1 : RETURN 

800 REM MHiliMililHIHl 

810 SOUND 0, 0, 0, : SOUND 1 . . , : POKE 7 

64,255 

820 IF PEEK( 764 )-255 THEN 820 

83 SOUND 1,20,8,1: POKE 764,255:RETURN 
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GAME OVER ROUTINE 



840 REM 

85 SOUND 0,0.0, 0: POKE 5 3 248,0: POKE 53 

278,15 

8 6 0? : ?" M B ; S C : ? 

8 7'0 ? " n niii 

POP 

880 POKE 77, 128 : X-USR ( AD R ( RAINBOWS) , 1 ) 

890 IF STR IG ( ) -1 THEN 880 

900 RUN 

910 REM IHIiJll l^iH*i il i lTJn 

920 ? "H I base I under II 

lll l lllll 

930 COLOR 4 : FOR 1-0 TO 80 : PLOT , I : DR A 

WTO 159.1: POKE 7 1 2 , ( R N D ( ) <0 . 5 ) * 5 : S 

UNO 0,1*6,8,4: NEXT I 

940 SOUND 0, 0, 0, 0: FOR 1-1 TO 3 

950 FOR A-0 TO 30 : S OUND , A * 8 , 8 , 2 0-A/ 

2 + 1 : SOUND 1 , A * 8 , 1 6 , 2 0-A / 2 + 1 : P OK E 712, R 

ND(0) * 255 : NEXT A 

960 NEXT I : SETCOLOR 4,0,0 

9 7 G R A P H I C S 17: POKE 87, : P O KE 82,2 

980 ? :? •■ mm gQRgi nnnT— 

":? :? " Fill H" ' : G T 85 

990 SOUND 1,0, 0,0: S OUND 0,0,0,0 

10 00 ? "15 you lilHJMI have QJH MlUl'l t 
o 



V 



101 FOR 1-1 TO 200: NEXT I 

102 GOTO 920 

1030 REM MJMUMiltlHai.M 

1040 GRAPHICS 1 7 : DIM RAINB0W$(32) 

1050 HARDERS-1:E-40:SC-0:MI-0:V-1:H-1 

1060 RESTORE 1080 

1070 FOR 1-1 TO 32:READ A : RAINBOWS (1,1 

)-CHR$ ( A ) :NEXT I 

1080 DATA 104,104,104,72,162,57,160,0, 

173, 0,210,101, 20, 141, 25, 208, 141, 10, 212 

1090 PAT A 136,208,242,202,208,237,104, 

56,233,1,208,228,96 

1100 POSITION 2,3:? #6;" llglll - " 

1110 POSITION 2,15:? #6 ; "fl fl" : ? #6 

1120 ? #6 ; 

1130 ? #6; 

1140 SOUND 0, 254 , 1 0, 1 0: SOUND 1,255,10, 



select tar level 
start to p I a yfl 
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~\ 



1150 POSITION 4,10:? ttfi llTI llMMIJ 

1160 POSITION 11,3:7 #6 ; H A R E R S : A = P E E K 

( 5 3 2 7 9) 

1170 IF A-6 THEN T« 1 + H A R D E RS * 1 0+ 1 00 * 

(HARDERS-1 ) :S0UND , , , : S UN D 1,0,0. 

0: RETURN 

1180 IF A-5 THEN H A R E R S-H A R D E R S + 1 : I F 

HARDERS>4 THEN HARDERS-1 

1 190 A-USR( ADR ( RAINBOWS ) , 1 ) 

1200 GOTO 1 160 

1210 DATA 202,189,1,6,157,2,6 

1220 DATA 224,0,208,245,173,61 ,6 

1230 DATA 141,1,6,162.0,189,10,6,157,9 

,6, 232, 224, 7, 208, 245, 173, 62, 6, 141, 16, 6 

,169,0 

1240 DATA 141,60,6,238,60,6,104,170,10 

4,76,98,228 



TYPO TABLE 


Variable 


c h 


i ck s urn - 306808 




Line 


n urn 


range 


Code 


Length 


10 


- 


90 


FP 


500 


100 


- 


170 


DY 


547* 


180 


- 


290 


CH 


527* 


300 


- 


360 


EL 


500' 


370 


- 


480 


HR 


436» 


490 


- 


570 


BE 


502« 


580 


- 


670 


YQ 


6 7- 


680 


- 


760 


TL 


5 2 8.; 


770 


- 


870 


GZ 


515* 


880 


- 


960 


KO 


530* 


970 


- 


1080 


01 


530* 


1090 


- 


1 1 70 


MM 


513* 


1 180 




1240 


00 


265 «• 
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Tin Pan Alley Cats 

After you've worked hard all day and programmed all night, the last 
thing you need is to have your few hours of sleep disturbed by alley 
cats howling on your back fence. There are three of the buggers — a 
green one, a white one and a pink one. Every now and then one jumps up 
where you can hit it with a tin can, if you're quick enough. 

That's the scenario for Tin Pan Alley Cats, a one-player game requiring 
joystick and 16K RAM. You start out with 25 tin cans that you can kick 
toward the fence by pressing the fire button. But first you must move horizon- 
tally along the fence to lineup under the cats as they appear and disappear at 
random. The pink cat is the fastest, and hitting it scores the most points. The 
green cat is slowest, and hitting it yields the least. The cats will appear 35 times 
during a game, and the pace quickens as you use up your cans. When you hit a 
cat you will see it and hear it, and points will be added to your score. 

If you score 2,000 points, you get five extra cans, and the cats appear five 
extra times. The bonus is repeated if you reach 3,000 and 4,000 points. The 
high score of your session is saved after each round. The difficulty of the game 
can be adjusted by changing the value of TUF in lines 280-310. 

Thanks go to Stan Ockers for his ideas on vertical blank interrupts 
(ANTIC, June 1982). We modified the VBI into a fast joystick routine. 

We also thank Jerry White for his ideas on sounds and the ATARI 

(ANTIC, October 1982). u n- i n, av uni 

by Kick Bloom and Rob Glassman 

System Requirement!,: 16K RAM, joystick 



10 REM ******** TIN PAN ALLEY CATS ** 

****** 

20 REM RY RICK BLOOM AND ROB GLASSMAN 

1983 

5 ? "S" : POKE 7 5 2,1 
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V B I JOYSTICK ROUTINE 



100 DIM P 0$ ( 1 ) , P 1 $ ( 1 ) ,P2$( 1 ) ,P3$( 1 ) ,M$ 

(1) 

110 VTAB-PEEK(134)+256*PEEK(135):ATAB 

-PEEK ( 14 fl)+256 «PEEK( 141 ) 

1 20 REM 

130 FOR A-1 536 TO 1 582 : READ ML : POKE A , 

ML : NEXT A 

140 DATA 104,160,10,162.6,169,7,76,92, 

228,173,120,2,201,7,240,9,173,120,2,20 

1,11,240,13,208 

150 DATA 18,230,209,166,209,142,3,208, 

144,9,176,7,198,209,166,209,142,3,208, 

76,98,228 

155 GOSUB 870:GOSUB 960 

160 GRAPHICS 17:P0SITI0N 4,10:? #6 ; "QQj 



I ready ! 



170 FOR X-1 TO 600 : NEXT X 

180 BONUS-0: HSCOR-0: X-USR ( 1536) : GOTO 1 
25 

190 rem mMiiTimn 

200 FOR X-40 TO 20 STEP -5 

205 FOR J-704 TO 7 6 : P K E J , X : NEXT J 

210 SOUND 1 ,X, 12, 10 

220 FOR Z-1 TO 10 : NEXT Z 

230 NEXT X 

240 FOR Y-15 TO 55 STEP 5 

245 FOR J-704 TO 7 06 : POKE J , Y : NEXT J 

250 SOUND 1 , Y, 12, 10 

260 FOR A-1 TO 8: NEXT A 

270 NEXT Y 

280 SOUND 1 , 0. 0: RETURN 

290 REM gj Bill I ■ Hllil |:Hfl 

300 IF X^^THEN SOUND {T^J^^SOUND 1 

. , , : F OR W-1 TO 1 00 : N EXT W:RETURN 

31 READ X , Y , Z : IF X-0 THEN 340 

320 IF Y--0 THEN SOUND 1,0,0.0 

330 GOTO 380 

340 IF Y-0 THEN SOUND 1,0,0,0 

350 POKE 540, Z 

360 IF PEEK(540)<>0 THEN 360 

370 GOTO 300 

380 POKE 540, Z 

390 Z-PE EK ( 540 ) : IF Z-0 THEN 410 
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400 



SOUND 0,X, 10, 12 .SOUND 1 , Y , 1 , 8 : G T 



"N 



39 

410 

420 

62 ,3 

3.10 

430 

, 162 

217, 

440 

3,6, 

0,21 

450 

217 , 

73 , 3 

460 

62,2 

470 

480 

Z = US 

490 

YM3- 

500 

51 



SOUN 

DATA 

,96 , 

8,16 

DATA 

,3,1 

6.0, 

DATA 

0,21 

7,3. 

DATA 

12,0 

. 102 

DATA 

6,-1 

REM 

Z = US 

R (MO 

YM3- 

: RE 

REM 

REM 



D 0,0, 
81,16 
7,6, 
6,0, 
6,21 
, 162 
7,3, 
5,17 
3, 85 
2,21 
, 173 
73 , 3 
73,6 
,217 
1 



21 

2, 

9 

8 
21 

8 
7 , 

1 


, 1 
, 1 



0, 
2, 
0. 
16 
7 , 
,3 
91 
3 , 
, 1 
7 . 
,3 
, 1 



6 , 
21 
2 , 
1 2 
, 1 
, 2 
30 
73 
6 , 
, 1 
08 
,0,1 
,3,8 



OTO 
, 162 
,3,1 
, 1 02 
0,21 



2,16 
7,6, 
0,0, 
6,0, 
1,173 
12,17 
1 73 , 
3,3, 
,217 



300 

,3,85,162.6,0,1 

02,217,6,0,217, 

,162,6,0,162,3 

7,6,108,162,6,0 

2,6,0,162,3,96, 

0,217,3 

9,0,173,3,81,17 

173,3,96,217,6, 

,3,108,173,6 

3,6,0,173,3,96, 

6,0,173,3,108,1 

96,217,6 

,6,0,217,3,81,1 



MISSILE MOVE ROUTINE 



R (MOVE ,M+YM3+DYM3,DM3, LM3T63 
VE,M+YM3+LM3+DYM3,B,-DYM3,63 
YM3+DYM3:XM3=XM3+DXM3:DXM3=0 
TURN 



THE MAIN 
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520 YM3-93 :XM3-0: POKE 53278, 1 : POKE 532 
51 , PEEK ( 209 ): POKE 53255,0: TIME-0 : S ETCO 

LOR 4,0, INT(CNS/5) 

530 REM ■;M)li|ili l ill«Jil',UB>l:111i».imi«W 

540 A-( 3* RND ( ) )+1 : ON A GOTO 550,560, 

570 

550 TIME-1 :X-(150*RND(0) )+45:P0KE 5324 

8 , X : GOTO 580 

560 TIME-Z : X-( 150*RND(0) )+45: POKE 5324 

9 , X : GOTO 580 

570 TIME-3 :X-( 150*RND( 0) )+45: POKE 5325 

0,X 

580 N-INT ( ( 2 * RND ( 0) )+20) : FOR X-1 TO 2 

5 : SOUND 3 , N , 1 , 8 : N E XT X : SOUND 3,0,0,0 

590 TU F-25 : I F CNS<-20 THEN TUF-TUF-2 

600 IF CNS<-15 THEN TUF-TUF-4 

610 IF CNS<-10 THEN TUF-TUF-6 

620 IF CNS<-5 THEN TUF-TUF-8 

630 GOSUB 750 

640 POKE 53248, : POKE 53249, : POKE 532 

5 

650 POKE 704,72:POKE 705,14:POKE 706,1 
84 

660 FOR X-1 TO 150 .NEXT X : GOSUB 1070:1 
F CNS-0 THEN 1 100 
670 KIT-KIT-1 : IF KIT-0 THEN 1100 

6 80 POKE 77. 0: GOTO 510 

689 REM 

690 REM 

700 GOSUB 200: D3$-D02$: P 3 $ ( YP 3 , Y P 3 + L P3 
-1 )-D3$ : M$-" ":M$(128)=M$:M$(2)-M$ 
710 ON TIME GOTO 720.730,740 
720 SCOR-SCOR+200:RETURN 
730 SCOR-SCOR+100: RETURN 
74 SCOR -SCOH+50: RETURN 

749 rem 2 BmsBmi^B 

750 FOR Z-MiT UF:RB-PEEK(209) + 14 
760 IF STRIG(0)»0 THEN D3 $-D 03 $ : P 3 $ ( Y P 
3,YP3+LP3-1)-B3$:S0UNB 0,60,12,12:M$(Y 
M3 , YM3+LM3-1 )-BM3$:G0T0 820 
770 D3$=D02$:P3$(YP3,YP3+LP3-1)-D3$ 
780 ON TIME GOTO 790,800,810 
,790 FOR X=1 TO 5:NEXT X:NEXT Z:RETURN j 



COLLISION ROUTINE 
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/8 FOR X-1 TO 1 : NEXT X:NEXT Z:RE' 
810 FOR X-1 TO 20 : N E XT X:NEXT Z : RETURN 



:turn \ 



TITLE SCREEN 



820 MMR-1 : CNS-CNS-1 : SOUND 0,0,0,0 
825 IF R8>-210 OR RB<-40 THEN RETURN 
830 POKE 53255 , RB : DYM3--6 : GOSUB 4 7 : I F 

PEEK( 53259)<>0 THEN POKE 53255, : GOTO 

690 
840 MMR-MMR+1:IF MMR-20 THEN 770 
850 GOTO 83! 
860 REM 

870 GRA PHICS 2 + 1 6 : P S I TI OUT, 4 : ? #6;"T 
IN C A N HflimE : POSITION 0,8:? #6 

b y UW BLOOM" 

880 POSITION 2,9:? #6;" Qjj] rob 

890 C1=8:C2-166:C3=86:C4-52:C5-0:CNT»1 

900 POKE 708 , C 1 : POKE 7 09 , C2 : POKE 710, C 

3 : POKE 71 1 ,C4 : POKE 712, C5 

910 CNT-CNT+1 :IF CNT-1 THEN 930 

920 TEMP=C 1 : C 1-C2 : C2-C3 : C3-C4 : C4=TEMP : 

FOR X-1 TO 100: NEXT X : GOTO 900 

930 RESTORE 420: GOSUB 300 

940 RETURN 

950 REM 

960 G RAPHICS 1 8 : POSITION 0,1 : ? #6 ; " 

Film . ..": POSITION 1,3:? #6 ; " G R E E N S L E E 

VES" : POSITION 8,4:? #6;" ■ ■ ETiMJ 11 HI 

970 POKE 708,72:POKE 709,198:POKE 710, 

120: POKE 711,12: POKE 712,0 

980 POSITION 1,5:? # 6 ; "FRISKY WHITE" : P 

OSITION 8,6:? #6 : " . . HTM J IUJI : P S I T I 

ON 1,7:? #6: "PINK PANTHER" 

990 POSITION 7,8:? #6 

1000 RESTORE 420:GOSUB 3 10 

1010 POSITION 0,10:? #6:"AND Q] | AS... 



CAN CAN 



TITLE SCREEN #2 



200 POINTS 



DISPLAY LIST 



102 REST ORE 4 2 : G S U B 310 : RE TURN 

1 030 REM 

104 GRAPHICS 2 1 

1050 ST-PEEK(560)+PEEK(561)*256+4:POK 

E ST-1,70:POKE S T + 4 8 , 6 5 : P K E ST + 49.PEE 
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END OF GAME 



K ( 5 6 ) : POKE S T + 5 , P E E K ( 5 6 1 ) 
1060 NON-PEEK ( 559 ) : POKE 559 . : CNS-2 5 
1070 POKE 87,1 : POSITION 0,0:? #B:"1 
Q : •• ; S C R 

1075 IF SCOR>-2000 AND BONUS-0 THEN GO 
SUB 2000 

1076 IF SCOR>-3000 AND BONUS-1 THEN GO 
SUB 2100 

1077 IF SCOR>-4000 AND BONUS-2 THEN GO 
SUB 2200 
10 8 I F CNS<10 THEN POSITION 13,0:? #6 

:" IHH : 0" : CNS: RETURN 

1090 POSITION 13,0:? #6 ; "Q|Q : " ; C N S : R E 

TURN 

1 100 REM 

1110 POKE 209 , : POKE 5325T7& 

1115 POKE 53277,0: POKE 559,2 

1130 GRAPHICS 2+16:P0SITI0N 6,2:? #6;" 

ffllTI Mil POSITION 2,4:? #6 : " F I N A L SCO 

RE " : SCOR 

1140 NU-SCOR 

1150 IF NU>HSCOR THEN KSCOR-NU : FOR X-1 

TO 5 : POSITION 0,6:? #6;"new high scor 
e "; HSCOR: FOR W-1 TO 50: NEXT W. GOTO 11 
70 

1160 GOTO 1 195 
1170 POSITION 0,6:? #6;"NEW HIGH SCORE 

"; HSCOR: FOR W-1 TO 50 : SOUND 2,W,10,10 

:NEXT W 

1180 POSITION 0,6:? #fi : TTTMIUMllin 

"; HSCOR: FO R W-1 TO 50 : NEX T W: POSITION 

0,6:? #6 :' l;»V;iltllBkHil:T» " : HSCOR 
1190 FOR W-1 TO 5 : SOUND 2, 5 1 -W , 10, 10: 
NEXT W:NEXT X : S OUND 2,0,0,0:GOTO 1200 
1 195 POSITION 2,6:? #6 
HSCOR 

1200 POSITION 1,8:? #6 ; " p r e s s trigger 
for" 

1205 POSITION 4,10:? #6 ; " a n o t h e r game" 
1210 IF STRIG(0)-0 THEN SCOR- : BONUS-0 
: GOSUB 10 4 0: POKE 53277, 3 : GOTO 1800 
1220 GOTO 121 
v 1230 REM 



A 



HIGH SCORE 



COUNTDOWN ! 
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r. 



1240 GRAPHICS 18:P0SITI0N 10,6:? #6 : N : 
RETURN __— 

1249 REM B |»«UJI»llllHdi 

1250 GRAPHICS 21 

1260 PMBAS E-P EEK { 1 6 ) — 1 2 : POKE 54279, PM 

BASE : PMBAS E-PMB AS E * 256 

1270 N-3 : GOSUB 1240 

1280 POKE 623,17:P0KE 704,72:POKE 705, 

1 4 : P OKE 706,184:POKE 707, 138: POKE 5325 

6,1: POKE 53257, 1 

1290 POKE 53258, 1 : POKE 53259, 1 : POKE 53 

260.64:POKE 53248, : POKE 53249, : POKE 

53250,0: POKE 209,120:POKE 53251,0 

1300 FENCE-40:SIZE-17 

1310 DIM D 0$ ( S I Z E ) 

1320 RESTORE 1330: FOR 1-1 TO SIZE:READ 

BYTE : D 0$ ( I . I )-CHR$( BYTE) : NEXT I 
1330 DATA 248,248,32,248,32,216,80,126 
,31,31,18,18,18,18,18,18,54 
1340 DIM D1$( SIZE) 
1350 RESTORE 13 6 0: FOR 1-1 TO SIZE:READ 

BYTE : D1 $ ( I . I )-CHR$ ( BYTE ) :NEXT I 
1360 DATA 248,248,32,248,32,216,80,112 
,248,249,115,118,124,120,80,80,80 
1370 DIM D2$(SIZE) 
1380 RESTORE 13 9 0: FOR 1-1 TO SIZE : READ 

BYTE: D2S (I.I )-CHR$ ( BYTE) :NEXT I 
1390 DATA 62,62,8,62,8,54,20,28,28,62, 
62,28,28,180,84,20,54 
1400 YP3-101 : LP3-16 
1410 N-2 : GOSUB 1 240 
1420 DIM D 3$ ( L P 3 ) 

1430 RESTORE 1440: FOR 1-1 TO L P3 : RE AD 
BYTE : D3$(I,I)-CHR$(BYTE) :NEXT I 
1440 DATA 254,130,170,130,186,198,56,5 
6,254,186,186,186,186,40,40,108 
1450 YM3-93: LM3-4: REM VERTICAL POSITIO 
N AND LENGTH OF MISSILE3 
1460 DIM DM3$ ( LM3) 

1470 RESTORE 1480: FOR 1-1 TO LM3:READ 
BYTE:DM3$(I,I)-CHR$(BYTE):NEXT I : DM 3- A 
DR( DM3$) 
1480 DATA 192,192,192,192 
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1490 
1500 
15 
V3 
15 
15 
15 
15 
15 
B 

15 
15 
15 
16 
16 
16 
16 
CH 
I 
16 
CH 
16 
16 
16 
DR 
16 
16 



10 

20 
30 
40 
50 
60 

70 
80 
90 
00 
10 
20 
30 
R$ 



0FFSET=PMBASE+512-ATAB 

FOR 1=0 TO 4 

V3 = INT( OFFSET/256) : V 2-0 F FS ET-256 * 



POKE VTAB+2 
POKE VTAB+4 
POKE VTAB+6 
VTAB-VTAB+8 
IF 1-3 THEN 



V2: POKE VTAB+3, V3 
128 : POKE VTAB+5. 
1 28 : POKE VTAB + 7 , 
0FFSET-0FFSET+128 
OFFSET-PMBASE+384-ATA 



NEXT I 

P0$(FENCE, FENCE+SIZE-1 )=B0$ 

P1$( FENCE , FENCE + SIZE-1 )=01$ 

P2$( FENCE, FENCE + SIZE-1 )=D2$ 

P3$ ( Y P 3 , YP3 + LP3-1 )=D3$ 

M$( YM3 , YM3 + LM3-1 )=DM3$ 

FOR 1 = 1 TO LM3 : X-YM3 + I-1 :MS ( X ,X) = 

ASC (M$(X,X) )+ASC(DM3S( I , I ) ) ) : NEXT 



40 DIM B$ ( 1 7 ) : FOR 1 = 1 TO 1 7 : B$ ( I . I ) - 

R$(0) : NEXT I: B == A D R ( B$ ) 

50 N-1 : GOSUB 1240 

59 REM I'llHHIIMBl'lilllltUI'JillMlillfWTnR 

60 DIM M0VE$ ( 38 ) :MOVE=ADR(MOVE$) :M=A 
(M$)-1 

70 RESTORE 1690 
80 FOR 1 = 1 TO 3 7 : R E AD BYTE :MOVE$ (1,1 

)=CHR$( BYTE) :NEXT I 

1690 DATA 104,104,133,204,104,133,203, 

104, 133, 206, 104, 133. 205, 104, 104, 133, 20 

7, 104, 104, 133,208 

1700 DATA 160,0,177.203,37,208,113,205 

, 145,203,200, 196, 2 7.208,243,96 

1710 GOSUB 1040 

1720 DIM D01$( 16) ,D02$( 16) ,D03$( 16) 

1730 D 1 S = D 3 $ 

1 740 RESTORE 1780 

1750 FOR 1 = 1 TO 1 6 : R E A D B YT E : D 2 $ ( I , I ) 

=CHR$(BYTE) :NEXT I 

1760 FOR 1 = 1 TO 1 6 : R E A D B YTE : D 03 $ ( I , I ) 

=CHR$( BYTE) :NEXT I 

1770 D3S=D02$:P3$(YP3,YP3+LP3-1)-D3$ 

1780 DATA 254,130,170,130,186,198.56,5 
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~\ 



6, 2 
1 79 
6 , 2 
180 
1 81 
PLO 
1 82 
T 9 
: PL 
1 83 
1 84 
X , 
4: S 
185 
, 1 2 
200 
200 

Y = 
201 
21 
21 

Y = 
21 1 
220 
220 

Y = 
221 



T 



, 3 

OT 



19 



54,186,186 
DATA 254 
5 4,57, 57,6 3 
REM 

3 POKE 87,5: 

X: DRAWTO 

COLOR 1 : PL 

DRAWTO 13 

8,5: DRAWT 

DRAWTO 13. 

COLOR 2: FO 

DRAWTO X, 

COR=0:KIT=35 

POKE 711,8 

0: POKE 559 , 4 

CNS-CNS+5: 
5 FOR X=1 TO 

1 TO 1 0:NEXT 
FOR Z=1 TO 

CNS=CNS+5: 
5 FOR X-1 TO 

1 TO 10: NEXT 
FOR Z-1 TO 

CNS=CNS+5 : 
FOR X=1 TO 
TO 1 :NEXT 
FOR Z™1 TO 



86,40,40,40,108 

30,170,130,186,198 

63,32,32,224 



56,5 



SET UP SCREEN 



COL 
79 
OT 
, 3 : 
1 
6 : P 
R X 
29: 

6 : P 

6 : G 

KIT 

5 : 

Y : 
20 

KIT 
5 : 

Y : 
20 

KIT 
5 : 

Y : 
20 



1 9 TO 29 



OR 3 : FOR X 

, X : NEXT X 

10,2: DRAWTO 12, 2: PLO 

PLOT 8,4: DRAWTO 14,4 

4,5: PLOT 9 , 6 

LOT 10,7: DRAWTO 

=5 TO 75 STEP 5 

NEXT X: SETCOLOR 



12,7 
PLOT 



OKE 53277 ,3 : POKE 209 
OTO 51 

=KIT+5 : BONUS=1 
SOUND 0, 50, 1 0, 1 0: FOR 
SOUND 0, 0. 0, : NEXT X 
: NEXT Z : RETURN 
=KIT+5 : B0NUS=2 
SOUND 0, 50, 1 0, 1 0: FOR 
SOUND 0,0,0,0: NEXT X 
: NEXT Z : RETURN 
=KIT+5 : B0NUS=3 
SOUND 0, 50, 10, 10: FOR 
SOUND 0.0,0,0: NEXT X 
: NEXT Z : RETURN 



TYPO TABLE 



Va 



r i a b I e c h e 
Line n urn 
10 
160 
260 
380 
460 
560 
660 
760 
860 



970 



k s urn 

a n g e 

55 

50 

70 

50 

50 

50 

50 

50 

60 

050 



2531540 
Code Length 



RT 
10 
VH 
YZ 
MN 
OU 
QA 
EJ 
KJ 
VY 



507 
381 
416 
594 
520 
51 
397 
507 
641 
552 
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\ 


1060 


- 1130 


VM 


527 




1140 


- 1 195 


AD 


529 




1200 


- 1280 


LC 


520 




1290 


- 1390 


VT 


534 




1400 


- 1510 


AV 


413 




1520 


- 1630 


QV 


375 




1640 


- 1740 


IC 


456 




1750 


- 1820 


RQ 


526 




1830 


- 2105 


JU 


615 




2110 


- 2210 


ZR 


222 


J 
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Drop 

Catch the falling faces 

You can never beat this game, just get better and better. It starts slowly 
as faces appear at the top of the playfield and fall towards the bottom. 
You move a dish laterally with the joystick to catch the faces before 
they reach the bottom. If you miss one, that ends your turn. 

With every successful catch your score increases, and after a while bonus 
points accrue. However, the speed of the game increases too, and it is unlikely 
you will ever exceed 1000. A little "falling" sound accompanies the action. 

by John Zakour 

System Requirements: 16K RAM, joystick 



1 REM ******** DROP ******** 

2 REM BY JOHN ZAKOUR 
5 GOTO 100 

10 IF X-2 THEN X = 3: RETURN 

20 IF X-15 THEN X-14 : RETURN 

30 RETURN 

1 00 DIM S A ( 1 5 ) 

105 GOSUB 1000: C-1 : H 1=0 

110 FOR N-1 TO 1 5 : SA { X )-0 : NEXT N : SA { 7 ) 

-1 :SA( 1 1 ) — 1 

1 15 GRAPHICS 1 + 16 

1 16 POSITION 2 

2 , 7 : PRINT #6 ; "|| 
6 :" o" : POSITION 2 
1 1 7 POKE 756.64 

120 Y-19:X-10: DL-1 

121 FOR PY-2 TO 18 
1 22 POSITION 4 , PY : PRINT #6 



SETC0L0R 4 
: PRINT #6 ;" d' 
:P0SITI0N 2 
1 1 : PRINT #6 



4,0 

: POSIT 

9 : PRIN 





ION 

T # 



&" : POSITIO 
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N 17, PY: PRINT #6 ; "g" 

123 NEXT PY 

124 DLA-10 

125 DY-1 : DX-INT( 1 2*RND( 1 )+5) 
127 DX2-INT ( 12*RND( 1 )+5) : DY2-1 
130 DX3-INT ( 9* RND ( 1 ) + 5) :DY3=1 

160 POSITION X . Y : P RINT #6;" #$% " 

200 S-SA ( PEEK ( 632 ) ) 

210 IF S<>0 THEN X-X + S:G0SUB 1 : P S I T I 

ON X . Y : P RINT #6;" #$% " 

220 POSITION DX,DY:PRINT #6 : "Q" 

230 DL-DL+1 

235 IF DL<DLA THEN 200 

236 IF C-1 THEN POKE 7 5 6 , 64 : C-2 : G OT 2 
40 

238 POKE 756, 68 : C-1 

240 DL-1 : POSITION OX,DY:PRINT #6;" " : D 

Y-DY+1 : POSITION DX,DY:PRINT #6 ; ' ||" : POK 

E 53762 , DY + 1 0: POKE 53763, 163 

245 IF DY>9 THEN POSITION DX2,DY2:PRIN 

T #6;" •' : DY2-DY 2 + 1 : POSITION DX2 . DY2 : PR 

INT #6;" I" 

247 IF DY>15 THEN POSITION DX3,DY3:PRI 

NT #6;" " : DY3-DY3 + 1 : POSITION DX3,DY3:P 

RINT #6;" I" 

250 IF DY<>19 THEN 200 

255 IF DX-X+1 OR DX-X+2 OR OX-X+3 THEN 

260 
257 GOTO 266 

260 SC-SC+INT(11-DLA):DLA-DLA-0.35:POS 
ITION 1 , 1 : PR I NT #6 ; S C : DX-DX2 : D Y-D Y 2 : DX 
2-DX3 : DY2-DY3 : GOTO 130 

265 DX-DX2 : DY-DY2 : GOTO 130 

266 GOSUB 2000 

267 SOUND 0, 164, 1 0, 8 : FOR S = 1 TO 150:NE 
XT SiSOUND 0,0,0,0:FOR S-1 TO 5:NEXT S 
: SOUND 0, 164 , 10,8 : FOR S-1 TO 1 5 : N E XT 

S 

268 SOUND 0,0,0,0:FOR S-1 TO 5 : N E XT S: 
SOUND 0, 217 , 1 0, 1 0: FOR S-1 TO 300 : NEXT 

S : SOUND 0,0,0,0 

270 POSITION 6,8:PRINT #6 ; " ffiOl over": 
SOUND 1,0,0,0: POKE 77,0 
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275 
277 
: PO 
279 
280 
GOT 
400 
100 
#6; 

Q 

100 

fa I 
! ! ! 
100 
101 
1 02 
103 
110 
1 1 1 
1 1 2 
1 13 
1 14 
1 15 
1 16 



IF 

POS 
SITI 

IF 

SC- 
ll 1 2 

GOT 
GR 
" PL E 



SC>HI THEN HI-SC 

I T I ON 5 , 9 : P R I NT #6 ; "|Q|b u t t n" 

ON 6,12: PRINT #6 ;"HIGH " ; HI 

STRIG(0)<>0 THEN 270 

0:GRAPHICS 1 + 1 6 : S ET C L R 4,4,0: 



200 

APHICS 2+1 6 : POSITION 6 , 8 : PR INT 

ASE" : POSITION 7 . 9 : P R I NT #6 : ■■|7FH 



2 POSITION 2,2 : PRINT #6:"ca t ch the 
ling": POSITION 4,4 : PRINT #6; 



V 



1170 



5 F 

P 

P 

N 

F 

R 

P 

N 

F 

R 

P 
N 



OR 1-96 TO 720 

OKE 16384 + 1 , PE EK ( 5 7344 + 1 ) 

OKE 1 7408+1 , PEEK( 57344+1 ) 

EXT I 

OR 1-16392 TO 16439 

EAD D 

OKE I ,D 

EXT I 

OR 1-17416 TO 17463 

EAD D 

OKE I ,D 

EXT I 
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n 



180 DATA 126,129,165,129,165,189,129. 



1 26 
1 182 
1 184 
1186 
1 188 
1189 
1190 
1 192 
1 194 
1 196 
1 198 
1199 
1200 
1205 
T S: 
1210 
2000 
UNO 
2010 
-1 T 
"# 
2020 
2025 
2,0 
2030 
3000 
LARR 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
POKE 
SOUN 

SOUND 
RETU 
FOR 

3,76, 
POSI 

10: 

$ 

NEXT 

SOUN 

,0,0: 
RETU 
REM 

Y,& C 



24,24,24,24,24, 24,24,24 
0,0, 63,64,64,63,31 
0,0,255,0,0,255,255 
0,0,252,2,2,252,248 
0, 0, 0,24,24,24,24 
0,255,153,255,189, 129,255 
0,0,0,24,24,24,24 
0,0, 63,64,64,63,31 
0,0,255,0,0,255,255 
0,0,252,2,2,252,248 

24,24,24,24,0,0,0,0 

756,64 
D 0,31 , 1 0,8: FOR S=1 TO 50 : NEX 



RN 

LD-1 

8,14 

TION 

NEXT 



TO 
PO 
X, 
S : 

°/o" 



1 5 : SOUND 2,75,8, 1 4 : S 
KE 712, PEEK(53770) 
Y: PRINT #6:"WI" : FOR S 
POSITION 4,Y: PRINT #6; 



LD 
D 0,0, 
SOUND 
RN 

THANKS 
OREY 



0,0: SOUND 1,0,0,0: SOUND 

3 , 0, 0, 0: SETCOLOR 4,4,0 

: PAM C, JB, JBJ , ED, DAVID , 



TYPO TABLE 



Va r 



i a b I i 

Line 

1 

120 

230 

265 

279 

1130 

1192 

2030 



c h a 
n urn 



k s u in 

a n g e 

17 

20 

60 

77 

120 

190 

025 

000 



286608 
Cods 
IW 
NP 
OX 
TNI 
RD 
IK 
RP 
HA 



Length 
468 
41 9 
559 
565 
428 
258 
627 
54 
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Fallout 



A cycle of birth, labor, and goodbye 

You are the man, the only player in this electrolife drama. You have 
three "lives" to live, and watch out, they go rather quickly ! Once play 
begins you will find yourself confronted by a curtain of falling objects 
— babies (pink), diamonds (blue), and monsters (green). Your first task is to 
survive by intercepting babies (each confers an additional life), and then to 
catch the diamonds (they are worth points). Touching a monster takes one life 
away, and if you have no more, that's the end of the game. 

In the first wave the diamonds are worth one point each. In the second 
wave they are worth two points. This progresses up through 10 points at Level 
10, after which they stay the same. The action, however, continues to change. 
The directions, angles and speed of the falling items changes randomly, usual- 
ly for the worse. 

Your score at the end of each wave is augmented by multiplying the 
number of the level by the number of lives you have left at the time. 

by Scott McKissock 
System Requirements: 16K RAM, joystick 



1 REM **»»»*»* FALLOUT *»****»* 

2 REM BY SCOTT MCKISSOCK 
10 GOTO 400 

49 REM MAIN LOOP 

50 D=20+DR:DR=-DR:NS=INT(RND(0)»10)+SN 
:F0R S C = 1 TO NS:F0R T-1 TO FN:NEXT T 

62 S = STICK( 0) :M=(S = 7 ) * 8 - ( S = 1 1 ) »8 : IF M = 
THEN 65 

63 X X i M : POKE 5 3 2 4 8 , X : S U N D 0,255,10,8 
:IF PEEK(53252) THEN CO L= P E E K ( 5 3 2 5 2 ) : G 
0T0 100 

65 LB=LB-D:IF LB<0 THEN L B=L B+2 5 6 : H B=H 



145 



BONUS GAMES 



B - 1 : POKE 559, 8: POKE D L , L B : P K E DL+1.HB 
: POKE 559,46 

70 SOUND , , , : P K E L , L B : I F H B P 1 6 
-1 THEN POKE 559 , : POKE DL+1 , HB-1 : POKE 

OL , 248 : POKE 559 ,46: GOTO 300 

71 IF PEEK(53252) THEN C L = P E E K ( 5 3 2 5 2 ) 
.GOTO 100 

72 OK=0:S=STICK(0):M=(S=7)*8-(S=11)*8: 
X=X+M:IF M=0 THEN 77 

74 IF X>=200 THEN X=56 

75 IF X<=48 THEN X=192 

76 POKE 53248.X 

77 IF PEEK(53252) THEN CO L = P E E K ( 53 2 5 2 ) 
: GOTO 100 

80 NEXT SC:GOTO 50 

100 SOUND 0,99,1,14:IF OK -1 THEN FOR T 

= 1 TO 30:NEXT T:POKE 53278, : NEXT SC:G 

OTO 50 

110 OK- 1 : POKE 53 2 78 , : REM CLEAR COLISI 

ON REGISTER 

115 GOTO 120i ( 20*COL) : REM COL-VALUE IN 

COLISION REGISTER 
140 FOR T=15 TO STEP -0.75:POKE 712, 
T* 1 6 : SOUND , T » 1 6 , 1 , 1 6-T : N EXT T:SOUND 

v t , i 
145 LIVES = LIVES+1-(LIVES = 6) : POKE (P106 
-4 ) - 256 + 1 + LI VES , 1 
150 NEXT SC: GOTO 50 

160 FOR T = 255 TO 5 STEP - 5 : POKE 704, T: 
SOUND 0,T,2, 1 5 : NEXT T : SOUND 0,0,0.0:PO 
KE 704,24 

165 LIVES = LIVES-1 :POKE ( P 1 06-4 ) * 2 5 6 + 1 1 
+ LIVES, 

170 IF LIVES=0 THEN 250 
1 75 NEXT SC : GOTO 50 
1 80 GOTO 1 60 

200 FOR T = -125 TO 125 STEP 1 : P OKE 710 
, ABS(T) :SOUND , A B S ( T ) , 1 , 1 5 : N E XT T:SO 
UNO 0,0,0,0: POKE 710,148 
205 AD = AD+1-(AD=10) :SCORE = SCORE + AD:POS 
ITION 7,0:? #6:SC0RE 
210 POKE 53248, X:NEXT SC:GOTO 50 
. 220 GOTO 140 

V > 
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240 GOTO 1 60 

250 POKE 8 7 , 1 : POKE 8 9 , P 1 06- 1 : P OS ITI ON 

10,7:? #6;" 

255 POSITION 10,10:? #6 



game over 



257 POKE 559,0:POKE DL+1,P106-2:POKE 
L.248:P0KE 559,46:REM DISPLAY "GAME OV 
ER" 

260 POKE DL i 26, P1 06-5 : FOR T = 255 TO 252 
STEP - 1 : POKE DL + 25,T:F0R Y = 1 TO 20:NE 
XT Y : NEXT T: REM SCROLL SCORE 
280 IF PEEK(53279)<>6 THEN 280:REM CHE 
CK FOR START 

285 SCORE = 0: L I V ES = 3 : LV = : POKE DL + 25,0: 
POKE DL + 26 , PI 06-4 : REM LINE UP SCORE 
290 POKE 88 ,0: PO KE 8 9 , P 1 6-4 : P S I T I N 
0,0:? #6:" H¥W1 : S C R E : '• !! 
GOTO 305 

300 FOR T=1 TO 500:NEXT T:POKE 77,0 
305 LV=LV+1:FN=60-(4*LV)-(LV=1)*60:DR= 
1 (LV = 1 ) :SN = INT( 12-LV«0.5) :IF SN<0 THE 
N SN 

365 IF LV 1 THEN 385:REM NO BONUS IF G 
AME JUST STARTED 
370 FOR BNS 1 TO LIVES:SOUND 0,100-BNS 
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5, 10, 1 0: SCORE SCORE + LV-1 : POSITION 7,0 
:? #6 ; SCORE : SOUND 1 , 9 0-BNS * 5 , 1 , 1 
375 FOR DLY 1 TO 5 : NEXT DLY:S0UND 0,0 
, 0, 0: SOUND 1,0,0,0 

380 FOR DLY 1 TO 50 : NEXT DLY : NEXT BNS 
385 L B 2 1 6 : HB = P1 06 -, 1 5 : POKE 559,0:POKE 
DL , LB: POKE DL + 1 , HB : POKE 559,46 
390 POKE 87 , 1 : POKE 559 ,0: PO KE 89.P106- 
1 . POS ITION 14,7:? #6 ; "HUH " ; L V ; " QHJ) 

mill : AD 0: POKE 5 5 9,46 

395 POSITION 14,10:? #6:" HliTOl H I H 1 1 Elil 

rjE ":P0KE 88,0:POKE 8 9 , P 1 6 4 : K 1 : G 

TO 50 

400 GRAPHICS 17: POSITION 6,8:? #6;"FaQ 

LoQT" 

410 POSITION 4,12:? #6; 

420 POSITION 4,14:? #6; 

430 FOR R = 1 TO 100 

450 Z = P EEK ( 7 1 1 ) : POKE 7 1 1 , P E EK ( 7 09 ) : POK 

E 709, P E E K ( 708) : POKE 708,Z:REM ROTATE 

COLORS 

460 N = PEEK(53770) : FOR T = 4 TO 1 : S U N D 

0,N,T, 1 5 :NEXT T:NEXT H : S UNO 0,0,0,0:R 

EM RANDOM TONE 

500 POKE 559,0: PI 06 PEEK( 106) 16 : FOR T 

= ( P 1 06-2 ) - 25 6 TO (P106+16)*256: POKE T, 

: NEXT T: REM CLEAR MEMORY 

505 POKE 106,P106:REM MOVE RAMTOP DOWN 

16 PAGES 
510 CHSET-(PEEK( 106)-8)*256: FOR 1 = TO 

5 1 2 : POKE CH S ET + I , P E E K ( 5 7 3 44 + 1 ) : N E XT I 
:REM MOVE CHARACHTER SET INTO RAM 
525 CSETP = CHSET/256:READ CHTH : I F CHTR = 
-1 THEN GOTO 700 

530 FOR I-CHTR*8 TO CHTR * 8 + 7 : R E A D A : PO 
KE CHSET -i I , A : NEXT I : GOTO 525:REM DRAW 
CHARACHTER SHAPES 

600 DATA 1,12,12,0,15,28,44,10,9 
610 DATA 2,14,21,31,17,14,10,27,0 
620 DATA 3,14,17,17,10,10,4,4,0,-1 

699 REM PUT SHAPES IN MEMORY 

700 FOR I -( P1 06 >16) -256 TO ( P 1 6 * 2 5 6 ) -i- 
460 STEP -3:D=RND(0) : IF D<0 . 9 THEN NEX 
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/T 



71 
XT 
71 
OT 
72 
79 
80 
PB 
81 
82 
: R 
87 
36 
89 
90 
HS 
PO 
91 
= P 
8 
92 



I : G 0T0 800 

IF D>0.99 THEN POKE I , 1 : B B=B B+ 1 : NE 

I : GOTO 800 
5 IF D>0.96 THEN POKE 1.13 1: MEXT 1:0 
800 

POKE 1,66: NEXT I 
9 REM SET UP P/M GRAPHICS 
PBP=P1 06-16 : POKE 5 4 2 7 9 , P B P : PMB AS E= 
P * 256 :X=120:Y = 92 
POKE 53277 . 3 : POKE 704 , 216 
FOR I=PMBASE+512+Y TO PMBASE+526+Y 
EAD A : P OK E I,A:NEXT I : POKE 53248, X 
DATA 24.24,24,0,60,90,90,90,24,24, 
,36,36,36,102 
9 REM PUT IN DISPLAY LIST 
GRAPHICS 1 7 : POKE 559,46: POKE 756, C 
ET/256:DL=PEEK(560)+256*PEEK(561)+4: 
KE DL + 24 . 70: POKE DL + 25, 
POKE DL+26, P1 06-4 : POKE DL+27,65:LB 
EEK(DL):HB=PEEK(DL+1):P0KE 8 8 , 0: POKE 
9, P106-4 
POKE 88 . : POKE 8 9 , P 1 06-4 : G OT 285 



A 



Va r 



TYPO TABLE 



i a b I 

Line 

1 

71 

145 

210 

290 

380 

430 

530 

810 



che 

urn 



c k s urn 

range 

70 

140 

205 

285 

375 

420 

525 

800 

920 



723906 
Code 
JK 
NY 
SC 
CJ 
KS 
JO 
FE 
LA 
LW 



Le n g t 
588 
622 
526 
558 
586 
513 
543 
506 
464 
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Skull Chase 



Watch out for the trees. 

This game exploits the techniques of table lookup to get speed out of 
BASIC. As the player, you control the race car with a joystick 
plugged into Port 1 . You are supposed to chase the skull , which moves 
randomly around the playfield to the extent permitted by the walls. When 
you catch the skull, action is frozen for an instant while you are credited with 
points, and a tree is planted somewhere in the playfield. Then you begin to 
chase the skull anew. 

Obviously, that would be too easy. Now you must avoid the tree, or trees, 
while chasing the skull. There are two kinds of trees, pine and oak. If you 
touch a pine tree, you lose points; but if you hit an oak tree, you lose your car 
and the game is over for that round. Your score— and the high score for this 
session— will be displayed, and you will be prompted to play again if you wish. 

by Dave Miller 

System Requirements: 16K RAM, joystick 



# * * * * 



* * * i 



1 REM *** SKULL CHASE 

20 REM BY DAVE MILLER APRIL 1983 

100 GRAPHICS 1 7 : DIM T I TL E $ ( 1 2 ) : T I T L E$ = 
"sQuQl QHQSQ" : POSITION 4 , 8 : FOR X 1 T 

12 

101 ? #6:TITLE${X,X) ; : SOUND 0,20-(X*1. 
5 ) , 8 , 1 4 : F OR W= 1 TO 250 : NEXT W:NEXT X:S 
OUND 0,0,0,0 

110 DIM CHR( 15) , DX( 15) , DY( 15) : SCORE=0: 
HISCORE 0:XTRA 



120 D X ( 14) 
-1 : DX( 1 1 ) — 
130 DY( 1 1 ) = 
1 : DY( 14)=-1 
140 CHR ( 14) 



DX( 13)=0: DX(9)=-1 : DX( 1 0) = 
DX(5) = 1 : DX ( 6 ) = 1 :DX(7)=1 
DY ( 7 )-B : DY (6 ) — 1 : DY( 10)=- 
Y ( 5 ) = 1 : DY ( 9 )-1 : DY ( 13) = 1 
92 : CHR ( 1 3 ) -93 : CHR ( 1 1 ) - 9 4 : C 



HR ( 7 ) 9 5 : CHR ( 1 0) 8 1 : CHR ( 6 ) 6 9 : CHR ( 9 )=9 
: CHR ( 5 )-67 : SKULL-147 64 : G0SU8 610 
150 ? #6;"E":P0KE 708, 196: POKE 709,22: 
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KE 


56 


(1 


3 



0, 




16 
+ 2 
1 7 
HR 
18 

D 

19 

20 

0, 

21 

22 

23 

24 

25 

26 

XT 

OK 

270 

280 

290 

300 

HR : I 

31 

320 



\ 

PE EK ( 88 ) 



710,52: POKE 711,8 
POKE 756, CHSET/256 : SCREEN 
* P E E K ( 8 9 ) : GOSUB 660 

PX-1 • : PY-1 1 : POKE SCREEN+PX+20*PY,C 
4) : DX=1 : DY=1 
BX=INT(16*RND(1)+3):BY=INT(20*RND( 



LOOP ** 
15 THEN 



***** 



SOUND 2, 



RA 
E 



REM ....... MAIN 

ST=STICK( 0) : IF ST 

0: GOTO 310 

SOUND 2,90,6,2 

TX=PX+DX(ST) :TY=PY+DY( ST) 

CPOS=SCREEN+TX+20*TY 

IF PEEK(CPOS)=SKULL THEN 420 

IF PEEK ( CPOS )=9 THEN 490 

IF PEEK(CPOS) 10 THEN SCORE SCOR 

: FOR W 1 TO 20: SOUND 3,100,10,14 

712, 58 .NEXT W 

SOUND 3,0,0,0: POKE 712,0 

IF PEEK ( CPOS ) THEN 310 

CHR=CHR(ST) 

POKE SCREEN+PX+20«PY 

X = TX: PY = TY 

TEMPBX=BX+DX:TEMPBY=BY+DY 

SPOS=SCREEN+TEMPBX+20*TEMPBY 



E 



0: POKE CPOS , C 
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r. 



IF 

SOUN 
IF R 
IF R 
DX = - 
POKE 

BX = T 
GOTO 
REM 
SCOR 
77,(9 
FOR 
2: SO 
I : NEXT 
440 APE 
: POKE 70 
450 S = IN 
460 R SC 
) OR PEE 
470 POKE 
KE SCREE 
480 REM 



330 

340 

350 

360 

370 

380 

KULL 

390 

400 

410 

420 

OKE 

430 

10,1 



UNO 2,0,0,0 

X D X : GOTO 200 

Y=-DY:GOTO 200 



NOT PEEK(SPOS) THEN 380 
D 2, 100, 10, 14 : SO 
ND(1 )>0.5 THEN D 
ND( 1 )>0.5 THEN D 
DX:DY=-DY:GOTO 200 
SCREEN+BX+20-BY, : POKE SPOS.S 



EMPBX: BY TEMPBY 

200 
....... SUCCESS 

E = SCORE + 50 -i XTR A 



******* 



490 

500 

510 

+ 76: 

520 

530 

540 

550 

POKE 

+ 64: 

560 



SOUN 

FOR 

POKE 

POKE 

SOUN 

NEXT 

POKE 

FOR 

709 
SOUN 
SOUN 



EN HISCO 
570 GRAP 
ou r SCO RE 

: miiiin s 

580 POSI 
STRIG ( 
590 SCOR 
600 REM 
610 CHSE 



T = 40 
UNO 2 
T 

EK(70 
9, I :N 
T(RND 
REEN + 
K(H)- 
R.S: 
N+PX + 

* * * * * 

2,0 

1 = 100 
SCRE 
709, 

0,1 
I 
SCRE 

1 = 150 
,1 + 16 
D 0,1 
0,0 
RE = SC 
HICS 

WAS 
CORE 
TION 
>=1 T 
E=0: G 

* * * R 

T=(PE 



TO 10 STEP 
,0, 0,0: FOR 



XTRA=XTRA+25:P 

-1 : SOUND 2,7, 
1 = 1 TO 1 5 : NEXT 



9) : FOR 1=25 
EXT I : POKE 
(0)*2)+9 
INT(480*RNO 
SKULL THEN 
POKE SCREEN 
20*PY, : GOT 
*** FAILURE 
,0,0 

TO 200 STE 
EN+PX+20*PY 
PEEK( 53770) 
,6, 1 5-INT ( ( I - 1 00 ) / 7 ) 



5 TO STEP -5 
709, A 

( 0) ) : IF PEEK ( R 
GOTO 460 
+BX+20*BY, 0: PO 
170 

******** 

P 2 

, INT(RND(0)*4) 



EN+PX+20*PY 

TO 1 STEP 
: POKE 708,1 
+ 50. 10,8:NE 
,0, 0: IF SCO 
ORE 

1+16: POSITI 
": SCORE : POS 
IS " : HI SCOR 
5,19:? #6:" 
HEN 580 
OTO 150 
EAD DATA FO 
EK( 1 06 ) -8 ) * 



-1 :POKE 711,1: 
+32: POKE 710,1 
XT I 
RE>=HISCORE TH 

ON 0,5:? #6:"y 
ITION 0,8: ? #6 

E 

IF 



press fire 



R CHSET ***** 



256 
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620 RESTORE 85 : I F P E E K ( C HS ET + 9 * 8 ) =5 6 

THEN RETURN 

630 READ A:A=A-64:IF A<0 THEN RETURN 

640 FOR J TO 7 : READ B : POKE C H S E T + A * 8 

+ J , B : POKE 708+3*RND(0),PEEK(53770):NEX 

T J 

650 GOTO 630 

655 REM ...... CREATE BRICK WALL*-*** 

660 WALL 21 0: BWAL L = 1 88 

670 FOR W TO 5 : P I NT ( R N D ( ) * 4 7 ) 

680 FOR 1=0 TO 4 

690 POKE SCREEN+P+I . BWALL 

700 NEXT I : NEXT W 

710 FOR W=0 TO 5 : P = INT(RND( 0) *470) 

720 FOR 1=0 TO 4 

730 POKE SCREEN + P + I - 20 , BWALL 

740 NEXT I :NEXT W 

750 REM ....... CREATE BORDER ....... 

760 FOR 1=0 TO 19 

770 POKE SCREEN+I ,WALL 

780 POKE SCREEN+460+I .WALL 

790 NEXT I 

800 FOR 1-0 TO 23 

810 POKE SCREEN+I* 20, WALL 

820 POKE SCREEN -, 19 + 1*20. WALL 

830 NEXT I : RETURN 

840 REM ***** DATA FOR CHSET ******** 

850 DATA 67,24,28,48,250,223,77,24,12 

860 DATA 69,12,24,77,223,250,48.28,24 

870 DATA 73,56,254,127,62,8,8,8,255 

880 DATA 74,8,28,62,127,62,8,8,8 

890 DATA 75,0,32,0,16,8,16,4,0 

900 DATA 76,0,64,0, 16,68, 16.4,0 

910 DATA 77,0,64,16,2,0,128,32,2 

920 DATA 78,128,8,1,0,0,0,0,64 

930 DATA 79,8,0,0,0,0,0,0,0 

940 DATA 81.48,24,178,251,95,12,56,24 

950 DATA 82,219,153,24,231,231,24,153, 

219 

960 DATA 83,189,126,90,126,60,36,90,12 

9 

970 DATA 90,24,56,12,95,251,178,24.48 

980 DATA 92,102.126,102,24,24,219,255,, 
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/T 



95 



990 DATA 93,195,255,219,24,24,102.126, 

102 

1000 DATA 94,15,239,226,94,94,226,239, 

15 

1010 DATA 95,240,247,71,122,122,71,247 

,240 

1020 DATA 124,255,145,145,255,255,137, 

137,255 

1030 DATA -1 



TYPO TABLE 


Variable 


c h 


Bcksum = 1142917 




Line 


n urn 


range Code 


Length 


10 


- 


1 20 RP 


528 


130 


- 


160 RA 


532 


170 


- 


270 WH 


544 


280 


- 


390 BT 


362 


400 


- 


490 JT 


524 


500 


- 


570 TO 


500 


580 


- 


680 OU 


489 


690 


- 


800 EN 


246 


810 


- 


920 VR 


331 


930 


— 


1030 RH 


365 
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Crystal Caves 

Making the most of a tight situation 

Navigate your ship through treacherous caves in an attempt to get 
enough energy pellets to escape the cave you are in. The next cave is 
harder to escape from. Crystal Caves calls for both fast reflexes and 
strategy! 

When you begin the game you will hear a beep. Your ship will appear in 
the center of the top part of your screen. You move right and left using the 
joystick. The fire button relocates you randomly at the top of the screen. If 
your ship touches any of the crystal walls, it will be destroyed. You only get 
one life. 

If you absorb enough of the diamond-shaped energy pellets (by running 
into them), you will be transported out of the cave you are in. In the new cave 
will start fresh, but you will have to get more energy pellets to escape. Your 
score is based on how many caves you have gone through , and also how many 
extra energy pellets you have absorbed. 

When your ship has been destroyed, the game will end and your score will 
be displayed. The game can be paused at any time by pressing [CTRL] and [1], 
and you can continue by pressing those keys again. 

A good strategy for this game is to go into the largest "corridor" you can 
when faced with a choice of directions. You should use little jerks on the 
joystick when in cramped quarters. The fire button on your joystick should be 
used only if imminent death is certain. 

by Thomas Edwards 
System Requirements: 16K RAM, joystick 



5 BEM ******** CRYSTAL CAVES ******** 

10 REM BY THOMAS EDWARDS 

20 REM REVISION JUNE 10 1983 

40 PRINT "S" : PR=0: ESCAPE-5 : C1-0 

50 GOSUB 380 .DIM C$(4),D$(37):G0T0 320 
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60 C$(1,1)-CHR$(33):C$(2,2)-CHR$(34):C 

$(3,3)-" " 

70 SC-PEEK(88)+256*PEEK(89) 

80 RA-53770 

90 PROB1-150: P ROB 2-1 5 

100 REM 

1 1 REM MAIN GAME BLOCK 

120 ?:?:?:?: PRINT " Q 

nnra ■■ ; ci + i 

130 HW-0 

140 P-SC+20:D$-"" 

150 0$(1 ,1 )-C$(1 , 1 ) : FOR 1-2 TO 36:D$(I 

,1)-" " :NEXT I : D$ ( 3 7 , 3 7 ) -C $ ( 2 , 2 ) 

160 FOR 1-1 TO 30 : PRINT D$ : NEXT I 

170 PRINT D$:IF PEEK(P)-0 THEN GOTO 22 



180 IF P EEK { P ) -96 THEN PR-PR+1 : SOUND 

,30,12, 1 4 : GOTO 200 

190 POKE P . 3 : GOTO 280 

200 SOUND 0,0,0,0:IF PR<ESCAPE THEN GO 

TO 170 

210 POKE P . 3 : F R 1-255 TO STEP -1:SO 

UNO 1 ,1 , 10, 1 : NEXT I : SOUND 1 . . , : ESC 

APE-ESCAPE+1 : C1-C1+1 : PR-0: GOTO 60 

220 POKE P , 3 : S-PE EK ( 63 2 ) : P-P+ ( S-7 ) - ( S- 

1 1 ) : S UN D 1 , (P-SC) *4 .35 + 78,2,2: IF PEEK 

( 644 ) -0 THEN GOTO 750 

230 IF PEEK(RA)>PROB1 THEN GOTO 260 

240 IF PEEK(RA)<PR0B2 THEN 170 

250 T-PEEK(RA)/7.5+2:W-INT(PEEK(RA)/86 

) + l :D$(T,T)-C$(W,W) : G OTO 170 

260 POKE SC+860+PEEK( RA ) /6 , 96 : GOTO 240 

270 REM GAME OVER 

280 FOR 1-1 TO 12: FOR J-CA TO CA + 7:POK 

E J , PEEK ( RA) : POKE 7 1 , P E E K ( R A ) : S U N D 1 

, PEEK(RA) ,8,10: NEXT J : NEXT I 

290 POKE 71 0, 0: SOUND 1,0,0,0 

300 SOUND 0,0,0,0: RESTORE : CA-CA-24 : FO 

R 1-1 TO 10:7 : NE XT I : GOSUB 520 

310 PRINT "CAVES F I NI SH E D : " ; C 1 : ? "EXTR 

A ENERGY PELLETS:";PR 

32 ? : ? : ? " 

[JH3 " : PR-0 : E 



PRESS START TO BE 
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1 


• 


♦ 


1 


j 


♦ 


• 
♦ 

I J 






1 

♦ 



330 

□ 
340 

TO 

350 

360 

12, 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

70 



0,15 



PRESS OPTION FOR INSTRUCTION 



IF PEEK) 53279 )-3 THEN GOSUB 780 : GO 
3 2 

IF PEEK(53279)<>6 THEN 340 

FOR 19-70 TO STEP -3 : SOUND 
19/5 : NEXT 19 : GOTO 60 

REM REDEFINE CHARACTERS 

X1-PEEK( 106) 

X2-X1-4 

POKE 106, X2 

POKE 709,13 

GRAPHICS 

POKE 7 10,0: POKE 752,1 

CR-PE EK ( 75 6 ) * 256 

POKE 756, X2 

CA-X2*256 

GOSUB 620 

FOR N-W TO 1023+W STEP 8 

POKE CA+N, PEEK( CR+N) 

NEXT N 

W-W+1 : IF W<8 THEN 48 

FOR 1-1 TO 3:CA-CA+8 

DATA 170,170,170,170,170 



170,170,1 
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540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
D(1 
770 
780 
790 



DATA 85,85,85,85,85, 85 ,85,85 

DATA 170,170,255,102,60,24,24,24 

FOR ADDR-CA TO CA+7 

READ DAT: POKE ADDR , DAT 

NEXT ADDR 

NEXT I 

RETURN 

REM TITLE 

? ■ ? ■ ? 



SB " 
0DHEEE S U 03 B" 
HTEH C a npffffl" 
HH' 

U 0" 

03 rnnn h- 
EDEHiEIZny 0" 



By Thomas Edwards" 
RETURN 

REM HYPERWARP ROUTINE 
IF HW>C1+1 THEN GOTO 230 
HW-HW+1 : POKE P,0:P-SC+3+INT(35*RN 
) ) : GOTO 170 
REM INSTRUCTIONS 
? 
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fly 
810 
he ' 
820 

830 
r e ' 
840 

i y 

850 ? 
can " 
860 ? 
v e r , " 



? 
? 

? 

? 

? 

? 
u' 



? " You have been cursed to 
through the Crystal Caves for t 
rest of your natural life. The 
deeper you go in a cave, the mo 
treacherous the cave becomes. I 
get enough energy pellets, you 
start fresh on a new cave. Howe 
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870 ? 
d e r " 
880 ? 
c k to" 
890 ? 
c a t e" 
900 ? 

910 ? 



each succesive cave becomes har 
to escape from. Use the joysti 
'move. The fire button will relo 
'you randomly at the top of the 
screen. Good luck." 



A 



9Z0 ? : ? : ? 



RETURN 



TYPO TABLE 



Variable checksum 
n urn range 
20 
10 
00 
20 
48 
60 



Line 

5 

130 

220 

310 

430 

550 

670 

790 

910 



r 
1 
2 
3 i 

4; 

5* 

61 

780 

900 

920 



440382 
Code 
ZI 
YJ 
SS 
OA 
UR 
KV 

QY 
AK 
PZ 



Length 
426 
536 
572 
442 
300 
237 
306 
507 
44 
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Translate 

Those of you who use your ATARI computers for business applications 
someday might wish to print checks. It seems like a simple task to 
write a program that prints the date, amount, and payee, in specific 
locations on a check form. But who wants to enter the English translation of 
an amount like ONE THOUSAND FOUR HUNDRED SEVENTY EIGHT 
DOLLARS AND TWENTY THREE CENTS? If you've got to do that much 
typing, you might as well write your check by hand. 

Your computer should be able to perform this task. Unfortunately, the 
translation of dollars and cents into English isn't as easy as just printing a 
number. I spent quite a while using the trial-and-error system to provide you 
with this program. I'm sure there must be a more efficient algorithm than the 
one I came up with, but this one does the job. 

What I did was to store the English versions of the required numbers in 
the string N$, and the starting and ending locations of each number in the 
two dimensional array, N. You enter the number in the normal numeric for- 
mat, and the program does the required translation. The translation sub- 
routine begins at line 130 and ends at line 320. B$ is a string of 80 blanks, EA$ 
holds the translated English amount, and AMOUNT$ stores the numeric 
amount you enter through the keyboard. 

The program will tell you what it wants and includes error-handling 
routines. The [BREAK] key and [SYSTEM RESET] have been left operational. 

I haven't gone so far as to actually print your check, but I have taken care 
of the trickly part. Add your own inputs for date and payee, position your 
data according to the layout of your check form, and put your ATARI to work. 
When you actually print checks, please remember that Jerry starts with a "J." 

by Jerry White 



100 REM TRANSLATE S/Z8/8Z BY JERRY WHI 

T E for ANTIC Magazine 

110 DIM B$(80) ,N$( 152) ,EA$( 80) .AMOUNTS 

(If ) ,1(27,27) 

120 EA$-" '■ : EA$ ( 80 ) -" " : E A$ ( 2 ) -E A $ : B $- 



v: 
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E AS : GOTO 330 

130 EA$-B$: EA$-" ":SW-0:FOR ME-1 TO LA 

140 IF AMOUNT$(ME ,ME) ' ." THEN EASfLEN 

(EA$) + 1 )-" AND " : ? "AND " : GOTO Z80 

150 IF SW=1 THEN SW-0:GOTO 280 

160 IF AMOUNTS(ME.ME)-" ," THEN SW-2:G0 

TO 270 

170 TRAP 280:SW-0:N-VAL(AMOUNT$(ME.ME) 

) : J1-N(N, 1 ) : J2-N( N, 2 ) :TRAP 40000 

180 IF N=0 THEN SW-2:G0T0 280 

190 IF LA-ME OR ME-LA-3 OR ME-LA-5 OR 

ME-LA-6 OR ME-LA-7 THEN 240 

200 IF LA-8 AND ME-1 THEN 240 

210 IF AMOUNT$(ME ,ME )<>" 1" THEN 230 

22 SW-1 :N-VAL( AMOUNT $( ME, ME+1 ) ) : J1-N( 

N. 1 ) : J2-N(N,2) : GOTO 240 

230 N-N+18: J1-N(N, 1 ) : J2-N(N,2) 

240 EA$(LEN( EA$)+1 )-N$( J1 , J2) :? N$(J1, 

J2); 

250 IF ME-LA-5 AND N<>0 THEN EA$(LEN(E 

A$) + 1 )-" HUNDRED" : ? " HUNDRED" ; 

260 IF SW<>2 THEN E A $ ( L E N ( E A $ ) + 1 ) -" 

? "" ; 

270 IF SW-2 THEN E A $ ( L E N ( E A$ ) + 1 ) -" TH U 

SAND " :SW-0: ? "THOUSAND " 

280 NEXT ME 

290 IF AMOUNTS ( LA-1 , LA )-" 00" THEN EA$( 

LEN( EA$)+1 )-"NO " : ? "NO " ; 

300 IF AMOUNTS ( LA-1 . L A )- " 01" THEN EA$( 

LEN(EA$)+1 )-" CENT" : ? " CENT" : GOTO 320 

310 EA$(LEN(EA$) + 1 (-"CENTS" :? "CENTS" 

320 LEA-LEN(EAS) : ? :? EA$(2,LEA):? #2; 

EA$( 2 , LEA) : ? #2 : RETURN 

33 NS-'ONETWOTHREEFOURFIVESIXSEVENEIG 

HTNINETENELEVENTWELVETHIRTEENFOURTEENF 

IFTEENSIXTEENSEVENTEEN" 

340 N$(LEN(N$)+1)-"EIGHTEENNINETEENTWE 

NTYTHIRTYFORTYFIFTYSIXTYSEVENTYEIGHTYN 

I NETY" 

350 DATA 1,3,4.6,7,11,12,15,16,19,20,2 

2,23,27,28,32,33.36,37,39,40,45,46,51, 

52,59,60,67,68,74, 75,81 ,82,90 

360 DATA 91,98,99,106,107,112,113,118, 
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119,123,124,128,129,133,134,140,141,14 

6,147,152 

370 GRAPHICS : POKE 82 . 2 : POKE 83 , 39 : PO 

KE 710, 1 6 : POKE 752, 1 



A 



380 ? 
ume r i C 
390 ? 

English 
400 ? 
not en 
410 ? 
e decimal 
420 ? 
n t s , and 
430 ? 

and the" 



This program translates n 
dollar and cent amounts into 
Input must be numeric so do 
dollar signs. Always includ 
point between dollars and ce 
a comma between the thousand 
hundred columns when the amo 



440 ? 

u n t is 

450 ? : ? "greater than 999.99." 

460 FOR J-1 TO 2 7 : READ J 1 , J 2 : N ( J , 1 ) = J 1 

:N( J . 2 ) - J 2 :NEXT J 

470 ? :? " Make sure your printer is 

ready,":? :? "then prBss START." 
480 IF PEEK(53279)<>6 THEN 480 
490 TRAP 560: CLOSE #2 : P E N #2,8,0,"P:" 
:TRAP 40000 : POKE 752,0:? CH R $ ( 1 25 ) 
500 ? :? "Enter numeric amount or just 

press":? :? "the RETURN key to quit"; 
510 INPUT AMOUNTS : LA = LEN( AMOUNTS) : IF L 
A-0 THEN 570 

520 TRAP 5 5 : I F LA<4 OR LA>9 OR AMOUNT 
$(LA-2,LA-2)<>" ." THEN 550 

524 IF LA<7 THEN 530 

525 IF LA>6 AND AMO U NTS ( L A-6 , L A-6 ) <>" , 
" THEN ? CHR$(253):? "A , MUST SEPERAT 
E THOUSANDS, HUNDREDS" :GOTO 500 

530 TRAP 40000:? CH R $ ( 1 2 5 ) : ? :? "CONVE 

RTING $";AMOUNT$:? :? #2 ; " $" : AMO U NT $ 

540 GOSUB 130 : GOTO 500 

550 ? CHR$(253):? , "INVALID AMOUNT":GO 

TO 500 

560 ? CHR$(253):? " READY PRINTER TH 

EN PRESS START" : GOTO 480 
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570 GRAPHICS 0:? 
D 



? "BASIC" : ? "IS' 



i>\ 



TYPO TABLE 



Var 



V. 



i a b I i 

Line 

100 

200 

310 

380 

490 

560 



c h i 
n urn 



c k s urn 

range 

190 

300 

370 

480 

550 

570 



217201 
Code 
MD 
QF 
ZO 
QE 
CT 
KF 



Length 
547 
545 
562 
529 
545 
101 



164 



DISPLAY LISTS SIMPLIFIED 



Display Lists Simplified 

An important step in understanding your ATARI's graphics 
capabilities is to create your own custom display lists. This article will 
show you step-by-step how to mix text and graphics on your TV 
screen. Our method uses BASIC commands to modify Graphics Modes 
through 8. BASIC sacrifices some of the ATARI's flexibility; however, these 
techniques will help you eventually create display lists in assembly language. 

The graphics capabilities of the ATARI are controlled by a 
microprocessor chip called ANTIC (Alpha-Numeric Television Interface Cir- 
cuit). Any display list is a program for ANTIC. 

There is a display list program provided automatically by each BASIC 
Graphics command, or you can define your own. The display list specifies 
where screen data is located, what display modes to use, and any special 
display options ANTIC is to implement. Since the display list describes the 
screen from top to bottom , any mix of graphics or text modes can be displayed 
on the screen. 

To understand displays, you need to know a bit about television. In a TV, 
a beam of electrons is shot at the screen. The beam starts at the top left-hand 
corner and moves across the screen. When it reaches the right-hand side, the 
beam is turned off, returned to the left, and moved down slightly. It is then 
turned on again, and the process is repeated 262 times to form a completed 
screen image. 

When the beam reaches the bottom right-hand corner of the screen, it is 
turned off and returned to the top left-hand corner to start over. These 
horizontal sweeps are called scan lines and are the basis of the display. The 
scan-line pattern actually starts above and ends below the physical boun- 
daries of the TV screen. To assure that information is not displayed where you 



Allan Moose is an associate professor (math /physics) at Southampton College, NY. Marian Lorenz 
is a special education teacher for handicapped children in Central blip, NY. They have been frequent 
contributors to ANTIC. 



165 



FEATURES 



can't see it, the ATARI display usually is restricted to 192 scan lines, position- 
ed in the middle of the screen. 

There are several other concepts you will need. These are: 

ANTIC MODE NUMBER: ANTIC identifies modes with a set of 
numbers different from those used by BASIC. The ANTIC mode numbers 
corresponding to each BASIC Graphics Mode, through 8, are listed in Table 
2. 

MODE LINE: A mode line is a grouping of scan lines into a fundamental 
unit for each Graphics Mode. For example, Graphics 8 uses one scan line per 
mode line; for Graphics there are eight scan lines per mode line. Screen 
displays are made up of 192 scan lines grouped into mode lines (see Table 2). 

LOAD MEMORY SCAN (LMS): The LMS number is the sum of the AN- 
TIC mode number for the first mode line, plus 64. The LMS number has two 
functions. First, it tells ANTIC what mode will be used for the first mode line 
of the screen display. Second, LMS instructs ANTIC to take information 
from the screen memory area of RAM and display it. The next two bytes in 
the display list following the LMS number give ANTIC the starting address of 
the screen memory. 

DISPLAY LIST POINTER: This is a variable that establishes the memory 
address for the first line of the display list. This address is found by the BASIC 
command: PEEK (560)+PEEK(561)*256. 

JUMP WHILE VERTICAL BLANK (JVB): This signals ANTIC that 
the end of the display list has been reached and it must loop back to the begin- 
ning. The jump is located immediately following the last mode line of your 
display list and is indicated by the decimal number 65. The low byte of the 
return address is given by PEEK (560). The high byte of the return address is 
given by PEEK(561). 

RAM REQUIREMENTS: The Graphics Modes differ in the number of 
bytes that must be set aside in memory for screen data (see Table 1). 

RAM BYTES PER MODE LINE: Just as the Graphics Modes differ in 
their total RAM needs, they differ in the number of bytes required per mode 
line (see Table 2). This information is important for synchronizing the 
Operating System (OS) and ANTIC. 
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Developing a 
Custom Display List 

Step 1 

Make a rough sketch of what you want to appear on the screen. Our example 
appears as Figure 1. 



ATARI 



IS FUN 



Step 2 

Select the Graphics Modes you want to use and the number of lines for 
each mode. Two requirements must be met. First, the total number of scan 
lines in all the mode lines should not exceed 192. If it does, the screen image 
may roll. However, the total can be less than 192 with no adverse effect. Se- 
cond, when you insert new mode lines into an existing display list, the total 
number of bytes required for the inserted lines must be a whole multiple of the 
bytes required per mode line in the existing display list. To understand this 
more fully, refer to Figure 2. Diagrams such as this are invaluable in planning a 
display list. 

Figure 2 
RAM Bytes /Mode 

2x20=40 



40x128 = 5120 



4x10=40 



GRAPHICS MODE 2 
(2 lines) 



GRAPHICS MODE 

(128 lines) 



GRAPHICS MODE 1 
(4 lines) 



Scanlines 
2x16=32 



128x1 = 128 

4x8 = 32 
TOTAL 192 
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Our example will modify a Graphics 8 display list. Each line of Graphics 8 
requires 40 bytes of RAM. Therefore, at the top we must insert at least two 
lines of Mode 2 (two lines X 20 bytes) to match the 40 bytes per line of Mode 8. 
At the bottom we will insert four lines of Mode 1 , each requiring 1 bytes, for a 
total of 40 bytes. 

Matching up the byte requirements between inserted lines and existing lines 
insures that the text and graphics will appear where we want them. 

Step 3 

After choosing the modes you want, determine from Table 1 which of 
them requires the most RAM. Use this mode as your base (existing) mode, on- 
to which you make changes that create your custom display list. This insures 
that the OS has set aside sufficient memory to hold your screen data. We have 
chosen Modes 2, 8 and 1. Mode 8 requires the most RAM, so it will be our 
base mode, called in line 30, but first we'll write a line to clear the screen and 
turn ofT the cursor: 

20 ?CHR$(125):POKE 752,1 
Next we call the display list to be modified. Adding 16 to GR. 8 eliminates the 
GR. window that is a normal part of GR. 8. 

30 GRAPHICS 8 + 16 
We recommend that you enter the program as we go along. It will help you 
understand the process. 

Step 4 

PEEK the display list pointer and assign it to a variable such as "DL". 
40 DL =PEEK(560)+PEEK(561) * 256 +4 
The number 4 is added to the display list pointer for insurance. Recall that the 
TV generates scan lines that do not appear on the screen. To allow for this, 
BASIC Graphics Modes generate 24 blank scan lines at the start of the display 
list. Adding 4 to the display list pointer will make sure that we don't inadver- 
tantly remove any of these lines. 

Step 5 

POKE the LMS instruction into DL minus 1. The value 71 derives from 
ANTIC mode number 7, plus 64. This instruction will establish the first mode 
line of the display list. If your first mode line belongs to your base mode, skip 
this step: 

50POKEDL-1.71 
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Step 6 

Every mode line in your diagram requires a statement in your display list. 
Write these in the same order as they appear on the screen, and POKE the 
ANTIC mode numbers as appropriate. This is the second line of our Graphics 
Mode 2. 

60POKEDL + 2J 
From the diagram we can see that the next 128 lines are Graphics 8. Since this 
is our base mode, these lines already exist in the display list. The next mode 
lines to insert are the four Graphics 1 lines at the bottom. 

70 POKE DL + 132,6 90 POKE DL + 134,6 

80 POKE DL + 133,6 100 POKE DL + 135,6 

Table 1 

GRAPHICS MODE RAM REQUIREMENTS 



MODE 



BYTES MODE 



BYTES 



16 8138 4 + 16 



8112 4 



696 
694 



7 + 16 

7 .. 



4200 3 + 16 432 



4190 3 



6 + 16 2184 2 + 16 

6 2174 2... 

5 + 16 1176 1 + 16 



1174 



434 
420 
424 
672 
674 
992 



Tabl 



BASIC MODE ANTIC 
NUMBER NUMBER 



TYPE 



LMS # OF MODE SCAN LINES/ RAM BYTES/ 
BYTE LINES MODE LINE MODE LINE 



9 
10 
11 
13 
15 



. text . 
. text . 
. text . 
graphics 
graphics 
graphics 
graphics 
graphics 
graphics 



66 
.70. 

71 
,72. 

73 

74 

75. 

77. 

79. 



24 
24 
12 
24 
48 
48 
96 
96 
192 



16. 
8. 

4. 
4. 
2. 
2. 
1. 



40 
20 
20 
10 
10 
20 
20 
40 
40 
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Step 7 

End the display list with a JVB, followed by the low byte and high byte of 
the return address: 

110 POKE DL + 136,65 
120 POKE DL + 137,PEEK(560) 
130 POKE DL + 138,PEEK(561) 
140 GOTO 140 
Now RUN the program. You will see the top section (GR.2) black, the bottom 
section (GR. 1) black, and the middle section (GR.8) blue. To make the middle 
section black, change line 30 to: 

30 GRAPHICS 8 + 16:SETCOLOR 2,0,0 
Table 3 shows the relevant portions of our display list and demonstrates 
another important point. Line 30 of our program has stored the LMS instruc- 
tion in address 32825. Line 40 stores the value 7 in address 32828 to give us 
the second mode line of Graphics 2. Instructions for the Graphics 1 lines and 
JVB are stored in addresses 32958 through 32962. 

Look at addresses 32921 through 32923. Note that here in the middle of 
the display list is another LMS instruction followed by a screen memory ad- 
dress! The reason is that ANTIC cannot address a block of memory longer 
than 4K bytes. Since Graphics 8 requires 8K bytes, the screen memory must 
be broken up into two blocks. ANTIC is sent to the first block of screen 
memory by the first LMS instruction in address 32825, and is sent to the se- 
cond block of screen memory by the second LMS instruction in address 
32921. "Jumping the 4K boundary " occurs only for Graphics 8. 

You must be careful of two things when you modify a Graphics 8 display 
list. First, don't clobber the second LMS instruction and the two following 
bytes by putting mode lines in their place. Second, you must calculate an off- 
set if you change modes after the boundary jump. We did this in line 70, by 
adding two lines to the display list (DL + 132 vs. DL + 130). 

At this point the actual display is written into screen memory. The next 
task will be to print "ATARI" in the Graphics 2 section. Line 10 established 
GR.8 and instructed the OS that data in screen memory is to be interpreted as 
graphics, not text. Consequently if we simply enter PRINT #6: "ATARI", the 
OS will not carry out the command. The OS must be told how to interpret 
the data it finds in screen memory by POKEing the appropriate Graphics 
Mode number into memory address 87. 
140 POKE 87,2 
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150 POSITION 8,0:PRINT #6; "ATARI" 
The OS positions text or graphics on the screen by counting bytes from the 
start of the screen memory associated with the Graphics Mode value stored in 
location 87. Thus, it is possible for total screen memory to be considerably 
longer than the memory for the mode the OS is using. This disparity can cause 
"cursor out of range" error messages and trouble positioning material on the 
screen. 

The cure for both problems is fairly simple. Before creating a display on 
the screen , change the start of the screen memory to coincide with the start of 
the mode section where you want the display to appear. For the Graphics 
Mode 8 section this will eliminate the trial -and -error method of placement. 
For the Graphics Mode 1 section this will prevent a "cursor out of range" 
message. 

To write our display we start with: 
160 POKE 87,8 

to tell the OS what mode we're in. Then locate the current top of the screen 
address with: 

170 TPSCRN =PEEK(88)+PEEK(89)*256 
Next, offset the variable TPSCRN by the number of bytes in the Mode 2 lines 
+ 1 (four Mode 2 lines X ten bytes per line = 40 bytes): 

180 TPSCRN =TPSCRN +41 

Finally, POKE this memory location back into 88 (low byte) and 89 (high 
byte): 

190 POKE 88,TPSCRN-(INT(TPSCRN/256)*256) 

200 POKE 89,INT(TPSCRN/256) 

This procedure sets up the Graphics 8 section of our display so that the top 
left-hand corner corresponds to position 0,0. You can appreciate how much 
simpler it will be to place your display components. 
210 COLOR 1 -.FOR 1 = 1 TO 40 STEP 5 
220 PLOT 60+I,40 + I:DRAWTO100 + I,40 + I: 

DRAWTO 100 +1,80 +I:DRAWTO 60 +1,80+1: 
DRAWTO 60+1,40+1 
230 NEXT I 

Finally, print "IS FUN" in the Mode 1 section at the bottom of the screen. 
240 POKE 87,1 
250 TPSCRN =TPSCRN + 5121 
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Line 250 offsets TPSCRN to the beginning of the Mode 1 section. 5121 is ob- 
tained from (128 lines of Gr. 8) * (40 bytes per line) = (5120 bytes) + l. 

260 POKE 88,TPSCRN-(INT(JPSCRN/256) * 256) 

270 POKE 89,INT(TPSCRN/256) 

280 POSITION 6,2:?#6; "IS FUN" 

290 GOTO 290 



Table 3 



ADDRESS OUR LABEL VALUE MEANS 



32822 


DL-4 


112 


23 


DL-3 


112 


24 


DL-2 


112 


25 


DL-1 


71 


26 


DL 


80 


27 


DL + 1 


129 


28 


DL + 2 


7 


32829 


DL + 3 


15 



Blank scan lines 
provide for "overscan" 

LMS - 64 + 7 sets ANTIC mode 7 

and one line of same 

gives address of start of screen 

memory 

lo'byte+hi-byte*256=33104 

sets ANTIC 7 for second mode line 

(equiv. of GR.2) 



32921 
22 
23 

32924 


DL + 95 
DL+96 
DL+97 
DL+98 


79 



144 

15 


ANTIC mode 15 LMS and address for 
f or 128 4J< boundary jump, 
mode lines includes one line of 
(equivalent mode 15 
of GR.8) 


32957 

32958 

59 

60 


DL + 131 
DL + 132 
DL + 133 
DL + 134 


15 
6 
6 
6 


sets ANTIC mode 6 
for four lines 
(equivalent of GR.l) 


61 


DL + 135 


6 




62 


DL + 136 


65 


]VB to address given b\ next two 


63 


DL+137 


54 


bytes 


32964 


DL + 138 


128 


lo-byte of return address 
128*256=32768, hi-byte of return 
address 

+ 54 



32822 =return address 
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Tiny Text 



Tiny Text is a small but clever cassette-based text editor written by 
Stan Ockers, originally in the A.C.E. Newsletter (3662 Vine Maple 
Dr., Eugene, OR 97405). Tiny Text was never intended to be an all- 
purpose word-processor, even though it does provide several of the important 
features found in larger programs. Tiny Text was written to facilitate submis- 
sion of "machine readable" copy to the Eugene A.C.E. Newsletter. The real 
advantage of this program is that it is small, inexpensive, and very easy to use. 
The program that follows is a slightly-enhanced version that includes: 

• support for Atari 820 Printer. 

• separate Print and Display modes. 

• forms control for Print mode. 

• top-of-page command for Print mode. 

• save text on Cassette or Disk. 

• error trap control. 

• adapts to different RAM sizes. 

Cassette tapes recorded by the original Tiny Text can still be used with this 
modified version. Finally, this version corrects a couple of minor formatting 
bugs and is about ten percent "tinier" than the original. 

Using the Program 

The [OPTION] key selects one of five options: LOAD, EDIT, PRINT, 
SAVE, and DISPLAY. The following paragraphs describe each of these 
options. 

The LOAD option reloads text that was previously saved on cassette or 
disk. When LOAD is selected, you will be asked to enter the "file spec" of the 
text you want to load. If the text is on cassette, simply type a C. The computer 
will "beep" once to remind you to set up the recorder to play. Then press 

Jim Can has a B.S. in physics from Oregon State University, and is employed in the field of 
computer -controlled processing. 
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[RETURN] to begin loading the text. If the text is on disk, type the complete 
file name of the text file, for example, "D1:TTHELP.TXT". 

The EDIT option lets you enter text or change text previously entered. 
When the Edit mode is requested, a blank area (text -entry window) appears 
in the center of the screen. Up to three lines of text can be typed into the 
window. Pressing [RETURN] causes text in the window to be added to pre- 
viously entered text. You can use the standard screen-editing functions to 
edit text in the window. All trailing blanks in the window will be deleted, so 
it is good to end each entry at the end of a word and start each new entry 
with a space. 

Such functions as tabulating and indentation are controlled by special 
formatting symbols. These symbols always cause the current line to end 
before the requested formatting function is executed: 

CTRL E — End the current line and start a new line with no inden- 
tation. 

CTRL I — Indent the next line. 

CTRL S — Space before starting the next line. 

CTRL T — Tab a specified number of spaces before the next line. 

CTRL C — Center the next line. 

CTRL P — Page. Advance the paper in the printer to the top of the 

next page before printing the next line. 
When in the Edit mode, pressing the [SELECT] key will cause the line of 
text below the window to be moved up into the window. The normal screen- 
editing functions can then be used to fix the text in the window. Use the 
joystick to scroll the desired line to the position below the text window. Press- 
ing [SELECT] twice (without making any changes) simply causes the text 
line to move up into the window and then back. To DELETE a line of text, 
move it below the text window and press [RETURN]. Press the joystick 
trigger to jump to the end of the text. 

The PRINT option prints the formatted text on the printer. Before print- 
ing begins you may change the default settings for line length, tab stop, etc. 
Use the screen-edit functions to make any desired change, then press 
[RETURN], The items that may be changed are: 

Line — Line length (maximum number of characters per line). 

Indent — The number of spaces to be indented (left margin). 

Tab Stop — The number of spaces for the tab stop. 

Paper Size — The total number of lines that can be printed on a fully- 
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covered page. For example, an 11 -inch form with six lines per inch has 66 lines. 

Forms Feed — The number of blank lines printed to separate the bot- 
tom of one page from the top of the next. For example, if three blank lines are 
required at the top and bottom of each page, then Forms Feed is set to six. 

Save option lets you save text on either cassette or disk. The SAVE 
selection will ask for the "file name" to be used. If using a cassette, simply type 
C. The computer will beep twice for you to set up to record. After that, press 
[RETURN] to begin saving text. To save text on disk, enter the complete file 
name to be used. For example "DTTHELP.TXT". 

The DISPLAY option displays the text on the screen. It provides the 
same format-change options as the print option. Display is relatively slow. 
The program jumps to menu immediately after the last line. 

Programming Notes 

The default settings for the format control functions are defined at line 120. 

If you make any changes to this program, you first make a change to line 
14 which automatically expands the main data storage array T$ to use all 
available memory. Try changing "SIZ=FRE(0)-50" to "SIZ=FRE(0)- 500". 
When you have finished making your changes you can restore the statement 
to its original form. 

If a system error occurs, it is trapped and printed out by the program. 

You are then prompted to press [RETURN] to make the program continue at 

the option selection menu. This will generally allow you to recover from 

errors without loss of data. 

by Jim Carr 

System Requirements: 16K RAM, 

1 REM **■>* TINY TEXT **** 

2 REM 

3 REM Stan Ockers Sept- 81 

4 REM ACE Newsletter Nov- 81 

5 REM 

6 REM Mod by Jim Carr 01 OCT 82 

7 REM 

12 DIM SP$(40):FOR 1=1 TO 4B:SP$(I,I)= 
" ":NEXT I 

14 DIM S$(45) ,I$( 120) ,A$( 128) : SIZ = F RE ( 
0)-50:DIM T$(SIZ):F0R 1 = 1 TO 45 : R E AD A 
:S$( I)=CHR$( A) :NEXT I 
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20 DATA 104,104,133,204,104,133,203,10 

4, 133, 206, 104, 133, 205, 104, 104, 168, 162, 

0, 161 ,203, 145,203, 198,203, 165 

30 DATA 203,201,255,208,2,198,204,165, 

203, 197, 205, 208, 236, 165, 204, 197, 206, 20 

8,230,96 

40 FOR 1 = 1536 TO 1643: READ A : POKE I, A: 

NEXT I 

50 DATA 104,104,133,204.104,133,203,10 

4. 133, 206, 104, 133, 205, 162, 0,169. 240, 32 

,53,6,169.40,32,91.6 

60 DATA 165.207,208,8,169,160,32.91,6, 

24,144.10,169,40,32,53,6,169,120,32.91 

,6,169,240,32.53.6,96 

70 DATA 133,208,161,203,201,96,176,11, 

201,32,176,5,24,105.64,208,2,233,32,12 

9,205,230,203.208,2 

80 DATA 230,204,230,205,208,2,230.206, 

198, 208, 208, 221, 96, 133, 208, 169, 0.129, 2 

05,230,205.208,2 

90 DATA 230,206.198,208.208,244,96 

110 P = 24 1 : POKE 207,0:POKE 82,0:OPEN #2 

. 4 , . ■ E : ■ :T$(1 )-" ." :T$(480)=" ." :T$(2) = 

T$ 

120 SCR=PEEK(88)+256*PEEK(89)+120:LL=3 

5:LM=1:IND=5:TAB=10:PS=66:FF=6:GOTO 50 



290 ? "INSERT TEXT OR ... PRESS SELEC 

T TO EDIT" 

300 POSITION 0,0:? S I Z-L EN ( T$ ) ; " FREE 

" :S = STICK(0) : IF S=15 THEN 330 
305 IF S=14 AND P<L E N ( T$ ) -3 2 THEN P=P 
+ 4 

310 IF S=13 AND P>280 THEN P=P-40 
315 IF S=11 AND P<LEN(T$) 280 THEN P=P 
+ 1 

320 IF S=7 AND P>241 THEN P=P-1 
330 A=OSR( 1536, ADR (T$)+P-24 1 , SCR) 
335 K=0 

340 POKE 53279, 8 : PK = P E E K ( 5 3 2 7 9 ) : IF PK = 
5 THEN GOSUB 900 
350 IF PK=3 THEN 500 
360 IF PEEK( 764)<255 THEN 400 
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*\ 



365 K = K+1 : IF K<10 THEN 340 

370 IF STRIG(0)=0 THEN P=L E N ( T $ ) -24 : P 

OKE 207 . 

380 GOTO 300 

400 POSITION 0,10:INPUT #2 ; I $ : PK = P E EK ( 

207) : IF PK=0 THEN A$~"" 

405 LI = LEN( 1$) : LT = LEN(T$ ) : IF L 1 = THEN 

460 
407 IF LI+LT>SIZ THEN POSITION 0,1:? " 
OUT OF SPACE ":GOTO 300 

410 IF P K = 1 THEN A $ = T$ ( P , P + 3 9 ) : I F T$(P 
+39,P+39)=" " THEN I $ { L I + 1 ) =" ":LI=LI+ 
1 

420 LA = LEN(A$) : AD = AOR(T$) : IF LI>LA THE 
N A-USH ( ADR { S$ ) ,AD+LT-1 .AD+P-2, LI-LA) 
430 T$(P, P+LI-1 ) = I$ 

440 IF LA>LI THEN T % ( P + L I ) =T$ ( P + L A ) 
450 P = P + LI :T$( LT + LI-LA+1 )="": POKE 207, 
0: GOTO 300 

460 IF PEEK( 207)=1 THEN 470 
465 IF P<LEN(T$)-279 THEN T$ ( P ) =T $ ( P+4 



470 POKE 764,255 : GOTO 300 

500 TRAP 950:ST=PEEK(560)+PEEK(561 ) *25 
6-4 : POKE ST-1 , 7 : POKE ST + 2 , 7 : POKE ST + 3 
,112: POKE ST+4,6: POKE ST+5,6 

501 POKE ST+24,65 

510 POKE ST+25 , PEEK ( 560) : POKE ST+26.PE 

EK ( 561 ) 

515 P = OP- 1 : IF 0P = 6 THEN P= 1 

520 ? CHR$( 125) : POSITION 2 , : I F OP 1 

THEN ? "LOAD" 



"EDIT" 

"PRINT" 

"SAVE" 

"DISPLAY" 

"PRESS START TO BEG 



522 IF 0P=2 THEN ? 

534 IF 0P=3 THEN ? 

536 IF P = 4 THEN ? 

538 IF P = 5 THEN ? 

540 POSITION 0,1:? 

IN" 

550 FOR D=1 TO 30 : NEXT D 

555 POKE 53279, 8 : I F P E E K ( 5 3 2 7 9 ) =3 THEN 

515 

557 IF PEEK(53279)<>6 THEN 555 

560 POKE 764 , 255 : POSITION 20,1:? CHR$( 
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125) : POSITION 0.1 : ON OP GOTO 2000.290. 
590 1500 590 

59 ' FOR I 1 TO 6:? C H R $ ( 1 2 7 ) ; C H R S ( 1 5 8 ) 
: :NEXT I :? : FOR 1 = 1 TO 6:? " " ;CHR$( 15 
9) :" : :NEXT I 

594 POSITION 0,1:? "SET FORMAT CONTROL 
S" : POSITION 0,6:? "LINE LEFT IN- TAR 

PAGE FORM" 

595 ? "SIZE MARG DENT STOP SIZE FEED": 
? CHR$(127);LL:",";CHR$(127);LM;",":CH 
R$( 127) ; IND;" ." :CHR$( 127) : 

596 ? TAB;",";CHR$(127);PS:",":CHR$(12 
7) : FF : POSITION 0, 8 

600 INPUT LL , LM, IND, TAB. PS , FF : P=240: P = 

240 : GOTO 710 

610 P=240 

670 GOTO 620 

710 L INE--0 : GRAPHI CS : POSITION . 3 : F L 



715 RL = LL:TP = P:B = ASC(T$(TP,TP) ) 

720 RL-LL-TND*(B=9)-TAB*(B-20) 

725 IF B = 19 AND 0P = 3 AND L I N E<= ( PS- F F ) 
THEN LPRINT " " : LINE=LINE+1 

726 IF B 19 AND OP -5 THEN ? 

727 IF B=16 AND 0P=3 THEN FOR 1=1 TO P 
S-LINE : LPRINT " ":NEXT I : L INE = 

728 IF = 16 AND 0P = 5 THEN ? :? :? : L I N 
E = 

735 C=0:K=0 

740 K = K+1 :TP = TP + 1 : IF K = RL + 1 THEN 765 

745 IF TP>LEN(T$)-241 THEN FL=1 : GOTO 8 

10 

750 A = ASC(T$(TP,TP) ) : IF A<32 THEN C = 0: 

GOTO 780 

755 IF A=32 THEN C=C+1 

760 GOTO 740 

765 IF C = THEN A $ = T$ ( P+ 1 , T P- 1 ) : T P = T P- 

1 : GOTO 810 

767 IF T$(TP,TP)=" " THEN A$=T$(P+1,TP 
-1 ) :GOTO 810 

768 IF T$ ( TP-1 ,TP-1 ) =" " THEN C = C-1 
770 K=1 

775 TP = TP- 1 : I F T$(TP,TP)<>" " THEN K = K 
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95o closer 



+ 1 :G0 

780 I 

785 A 

790 A 
„ .. T 

795 I 
>0 TH 
: NEXT 
800 C 
802 I 
$ ( L EN 
805 I 
810 1 
815 I 
PS-FF 
T " " 
820 S 
LL-LE 



830 
840 
850 
860 
900 



I 
I 
I 
P 
P 

. 0: GO 
910 I 
E 207 
930 A 
0=1 T 
'9-W ? 
EK( 1 8 
ONTIN 
1500 
N #3, 
IF N = 
1510 
1 27 ,S 
1520 
TO 50 
2000 
N #3 , 
= 127 
2010 
1 27 : 



V 



775 
TP = P + 

_•■•• : i = 

( LEN( A 
EN 805 

C>1 T 
N FOR 
J :K = K- 
C 1 

C = 1 A 
A$)+1 ) 

1 + 1 : IF 
FL TH 
0P = 3 
THEN 

NEXT I 
= LM+( B 
(AS))/ 

0P = 3 

0P = 5 

FL TH 
TP:GOT 
=PEEK( 
930 

PK 
1 
USR ( 15 

50:NE 
"ERROR 
)+PEEK 
E" : INP 

" ENT 
,0.1$: 

THEN 
OR 1 = 1 
) : NEXT 

#3:T$ 



1 THEN P=TP: 
P+1 

S)+1 )=T$(I,I 

HEN A=INT(K/ 
J = 1 TO A: A$( 
A 



NO 



GOTO 715 

) :IF T$(I,I)<> 

C+RND ( ) ) : IF A 
L EN ( A$ ) + 1 )=" •' 



K>0 THEN FOR J=1 TO K : A 
= " ":NEXT J 

I<TP THEN 7 
EN A$=T$(P+1 
THEN LINE=LI 
LINE 1 : FOR I 



90 

.TP-1 ) 

NE+1 : IF LINE>( 

=1 TO FF:LPRIN 



= 9 ) * I N + ( B = 2 

2: IF SP>40 T 

THEN LPRINT 

THEN ? SPS ( 1 

EN 500 

715 

207 ) : IF PK=1 



0)*TAB+(B=3)*( 
HEN SP 40 

SPS( 1 , SP) ; AS 
,SP) ; AS 



AND P<LEN(T$ 



THEN POKE 207 
-279 THEN POK 
2 4 1 , S C R ) : F R 



3 6 , A D R ( T $ ) + P 
XT D: RETURN 

" : PEEK( 195) 
( 186) : ? "PRE 
UT 1$ : GOTO 5 
ER FILE NAME 
N=INT(LEN(T$ 
ST=0:GOTO 15 

TO N:ST=128 

I 
(ST+1 ,LEN(T$) ) : CLOSE #3 : GO 



;" AT " ; 256* PE 

SS RETURN TO C 



":INPUT 1$ : OPE 

)/128) : ? #3;N: 

20 

•I : ? #3:T$(ST- 



" ENTER FILE NAME 
,0,1$: INPUT #3 , N : I 
GOTO 2020 
RAPHICS 0:FOR 1=1 
NPUT #3 , AS : ? AS ; :T 



" : IN PUT I $ : P E 
F N--0 THEN BEG 

TO N: BEG=128*I 
$(BEG)=A$:NEXT 
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i 

2020 INPUT #3,A$:T$(BEG+128 
#3: POKE 1536, 104 : GOTO 500 



A 



AS : CLOSE 



TYPO TABLE 


Variable checksum ■ 63 6317 




Line num 


range Code 


Length 


1 


- 40 RL 


509* 


50 


- 1 10 ON 


536 


120 


- 340 QW 


525 


350 


- 420 MY 


501 


430 


- 520 WU 


536 


522 


- 594 CP 


569 


595 


- 727 UF 


505 


728 


- 775 NA 


495. 


780 


- 82 WM 


515« 


830 


- 1510 QJ 


55 6- 


1520 


- 2020 CJ 


310 
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\ 

Christmas Mailing Lister 

Exchanging Christmas cards helps make this the holidays special, but 
digging through old slips of paper to find your addresses can take the 
fun out of it. Hand addressing all those outgoing envelopes is no thrill 
either. This year let your ATARI start handling this chore. 

Christmas Mailing Lister is a cassette-based program that stores up to 
140 addresses. You can create, change, or delete addresses at any time. You 
can print individual addresses, selected categories, or the whole file, sorted 
alphabetically by name or city. The printout can be done on labels, if you have 
the proper supplies and equipment, or in the form of an address book. 

The unique feature that makes this nice for a Christmas list is that names 
are stored beginning with the letter entered in inverse video, rather than the 
first letter of the name field. This way your labels can read "John and Mary 
Smith," or "The John Smith Family," instead of "Smith, John and Sue," or 
"Smith Family, The John." Just type the capital "S" in inverse video. Un- 
fortunately, this sort only works when running the whole list. An individual 
search for the Smith entry would still require hunting for "John and Mary 
Smith." "Smith" alone would not be enough. 

You can also define up to six different categories for selected sub-sorts. 
Each name must belong to one category only, although this assignment may 
be changed at will. One possible use for the categories is to keep track of card 
exchange. For example, the categories could be defined as follows: 

1. sent us a card in 1981 

2. sent us a card in 1982 

3. sent us a card in 1983 

4. sent us a card in 1984 

5. sent us a card in 1985 

6. did not send card 

This should keep you organized for a few years, by which time you'll pro- 
bably have a disk drive and a store-bought program. 



Bill Lukeroth is a heavy equipment claims adjuster, freelance writer and self-avowed "ATARI hacker." 

181 



FEATURES 



This program requires a printer, a 410 Program Recorder, and at least 32K 
of RAM. The first step is to type the program into the computer. I recommend 
that you CSAVE to your permanent cassette and a backup before attempting 
to RUN the program. Note that "Merry Christmas!" in line 250 must be in 
upper-case inverse video. 

When you RUN the program, first you'll see the title page, which changes 
to a menu after 20 seconds. You can shorten the wait by pressing [START]. 
The first four items on the menu require insertion of a data cassette, so the first 
time through you must select item #5 ("create a completely new address list"). 
Then you will define your six categories, each using 25 characters or less. You 
can bypass the category feature by pressing [RETURN] each time. 

The next screen asks for a name, address, etc. Each of the first three fields 
can hold 28 characters. You can put in a nine-digit ZIP code (or shorter) and 
an area code with your phone numbers. Sorry, no numerical sorting with this 
program. 

Enter a few addresses, then return to the main menu to experiment with 
the print, change and delete options. When you understand these, continue 
to enter addresses until you exhaust your list, or your computer's memory. 
Then return to the menu and select item #7 ("end"). You will be prompted to 
insert a blank cassette so you can record all your data onto tape. Do not use 
your program cassette for this. Also make a backup tape at this time, it's a lot 
of work to retype data! Now you can try the other program features without 
fear. 

Tips and Hints 

Every printer is different. The Atari 822, or other thermal printer (such as 
the Alphacom), does not have ready-made label paper. You can still cut and 
paste your labels though. 

The Atari 825 Printer, and certain other 80-column printers (such as the 
Epson), can use fan-fold labels with adhesive backs. Typically these labels are 
spaced at one-inch (six lines) intervals. You may have to adjust lines 7220 and 
7230 of the program to accomodate your labels. LE is the variable that deter- 
mines the number of blank lines between labels. If you change the value of LE 
in 7220, you must change 7230 so that LE equals one less than it does in 7220. 
7720 LE = 2 

7230 IF Q2$"Y" THEN ? #2;B4$;N AME$(105, 119), 
NAME$(120,120):LE = 1 
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The Atari 820 Printer does not work well with fan-fold labels because 
these are too thick. Try Dennison's "file-folder labels," product number 
36-471, which come in rolls of 250 labels. 

When you are sorting the whole file, the screen should change color each 
time a sorting loop is completed. This reassures you that the sort is taking 
place. 

Abort and return features include these: the [BREAK] key is disabled to 
prevent accidental crashes; YES or NO prompts require "Y," anything else 
returns to main menu; [OPTION] aborts to main menu, even while printing, 
except at a prompt. [OPTION] plus [RETURN] escapes a prompt. Atari 
screen editing is always available, but can destroy a screen if misused. 

Load the data tape according to screen instructions and standard pro- 
cedures. If there is a tape error, you must "end." The tape can take five to 10 
minutes to load. A tone alerts you when it is finished. 

Searching for a single entry requires you to enter the name line, exactly as 
entered, far enough to make the search unique. Remember, the inverse video 
character does not function in search mode. If you have "John and Mary 
Smith" and "John and Milly Doe" in your file, you will have to specify the 
search at least through the second letter of the woman's name to call the cor- 
rect record. 

If one of us has goofed terribly, the anguished program will go out in a 

blaze of glory, which should include the offending line number. Note this 

carefully and study the fault. To witness the death scene, type GOTO 9200 

instead of RUN. Caution: this will erase any addresses not on tape. 

May you have many pleasant holiday seasons. 

by Bill Lukeroth 



a 



20 

H0 

150 

160 

1 80 

s I 

190 

40 
200 



REM ** CHRISTMAS MAILING LIST ** 
REM BY BILL LUKEROTH 

REM REVISION 0.3, WRITTEN 10/07/82 

REM 

REM MEMORY USED: 32K 

REM DESCRIPTION : m a i I i ng list, print 
abels or address books 

DIM BK$(28) : FOR L-1 TO 2 8 : B K $ ( L , L ) 
":NEXT L :MSL«1 5400 : REM allows for 1 
names 

DIM MAIN$(MSL),NAME$(110),TEMP$(11. 
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/0),SEARCHNAME$(28),SEARCHCITY$(28).FIR^ 
MS(28) ,ADD$(28) . CITYS ( 28) 
210 DIM ZI PS { 1 0) , P H ON E S ( 14) , Q2$( 1 ) , CAT 
$(1),C$(10),CAT1$(25),CAT2$(25),CAT3$( 
25),CAT4$(25),CAT5$(25),CAT6$(25) 
220 DIM CIV$( 1 ) ,CIV2$( 1 ) ,NAME2$( 110) ,B 
4t(6) ,B$(1) :B4$-" " :B$-" " 
230 FLAG1-0: C$-"CATAGORY #" : F L A G 3-0 : F L 
AG6-0.S-0 

240 OOPS-9000:MENU-300:TRAP 00PS:DISBH 
K-9600: REBRK-9650 

250 GRAPHICS 2+1 6 : S ETCOL R 2,3.S:SETC0 
LOR 4 , 14 , 0: SETCOLOR 0,3,0:? #6:? #6;" 

mm MMEum -.? #b 

260 ? #6;" MAILIHG LIST":? #6:? #6: 
? #6 : ? #6 

280 FOR TITLE-1 TO 3 : I F P E EK ( 5 3 2 7 9 ) -6 
THEN POP : GOTO 300:REM check start b 
u t t on 

285 FOR L0-1 TO 1 00 : NEXT L : I F S-0 THE 
N S-8 : GOTO 288 

287 S-0 

288 SETCOLOR 2,3 ,S 
290 NEXT TITLE 

300 CLOSE #1 : CLOS E #2 : GRA PHI CS 
310 ? :? "CHOOSE ONE:" :? 
320 ? " Q. SEARCH FOR A LISTING(IN ORD 
ER TO PRINT A MAILING LABEL, OR C 
HANGE" : 

330 ? " OR DELETE A LISTING) ." 
34 ? " H. ADD A LISTING." 
350 ? " 0. PRINT A COMPLETE ADDRESS B 
OOK- ." 

360 ? " Q. PRINT MAILING LABELS FOR EV 
ERYONE ON THE LIST." 
370 ? " Q. CREATE A COMPLETELY NEW ADD 
RESS LIST ( A NEW DATA BASE) 

380 ? " R. CREATE A BACK-UP TAPE." 
390 ? " Q.END." 
400 ? :? "TYPE 1,2,3,4,5,6 OR 7" : GOSUB 

DISBRK 
410 INPUT Q1:GRAPHICS : I F Q1<1 OR Q1> 
i 7 THEN ? "ANSWER MUST BE BETWEEN 1 AND J 
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7 ." : ? :GOTO 310 
420 GOSUB DISBRK : ON Q1 GOTO 430,430,43 
0,430,1 100.2020, 2000 

430 FLAG6-FLAG6+1 : IF FLAG6>1 THEN 500 
44 ? "INSERT THE DATA C A SS E TT E , R EWI N D 

TO START, PRESS 'PLAY' AND HIT RET 
URN' " 
445 OPEN #1 , 4 , ,"C :" : REM get data from 

cassette file 
450 FOR L-1 TO 1 28 : GET #1 , D UMMY : N E XT L 
:REM this loop does nothing but is req 
uired by Atari BASIC 

460 INPUT #1 ; CAT 1 $ : INPUT #1 ; C AT 2 $ : I N PU 
T #1 ; CAT3$ : INPUT #1 : C AT4 S : I N PUT #1 ; C AT 
5$: INPUT #1 ;CAT6$ 

470 INPUT #1 : TEMPS : I F T EMP $-C H R $ ( 2 5 3 ) 
THEN 490 

480 MAIN$(LEN(MAIN$)+1)-TEMP$:TEMP$-"" 
: GOTO 470 

490 SOUND 0,60, 10, 14: FOR L-1 TO 250:NE 
XT L : SOUND 0,0,0,0:? :? "TURN RECORDER 

OFF, THEN PRESS START' TO CONTINUE. 

495 IF PEEK(53279)<>6 THEN 495 

497 CLOSE #1 : GRAPHICS 0:GOSUB DISBRK 

500 ON 01 GOTO 520,1210,1400,1870 

520 ? "WHAT NAME ARE YOU LOOKING FOR?" 

530 INPUT TEMP$:MARK-28:G0SUB 8500 

540 SEARCHNAME$-TEMP$:TEMP$- "" 

550 ? "WHAT CITY? ( OPTIONAL . IF NOT NEED 

ED TYPE'N')": 

560 INPUT TEMPS : MA RK-2 8 : G OS U B 8500 

570 SEARCHCITY$-TEMP$ : TEMPS-"" 

575 NL-1 

580 FOR L2-NL TO L E N ( MA I N$ ) - 1 09 STEP 1 

10 

585 GOSUB 7 8 00: IF FLAG4-1 THEN POP :GO 

TO 300 

590 NAMES -MAIN$(L2,L2 + 1 09) : FLAG 2 = 

595 REM line 600 compares nameS and se 

archS character by character 

600 FOR L3-1 TO L E N ( S E A R C H N AME S ) : C I V$- 

NAME$(L3,L3):CIV2$-SEARCHNAME$(L3,L3): 
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i XN-ASC ( CI V$ ) : XS-ASC ( CI V2$ ) > 

605 IF XNoXS AND XN<>XS+128 THEN FLAG 

2-1 

610 NEXT L 3 : I F F L AG 2-1 THEN 630 

620 NL-L2 + 1 1 0: POP : GOTO 680 : REM names 

match 

630 NEXT L2 

640 ? "NO RECORD FOUND. ARE YOU SURE TH 

AT" 

650 ? SEARCH NAME S : ? "IS THE CORRECT SP 

ELLING?" : GOTO 310 

680 IF SEARCHCITY$-"N" THEN 750 

690 CITY$-NAME$(57,84) : FLAG3-0 

700 FOR L4-1 TO L EN ( S E ARCH C I T Y $ ) 

705 GOSUB 7 8 00 : I F FLAG4-1 THEN 300 

710 IF SEARCHCITY$(L4,L4)<>CITY$(L4,L4 

) THEN FLAG3-1 

720 NEXT L4: IF FLAG3-0 THEN 750 

730 ? "FOUND ONE IN:":? CITY$:? "STILL 

SEARCHING FOR THE RIGHT ONE.":? : GOTO 

580 
750 FIRM$-NAME$(1,28):ADD$-NAME$(29,56 
):CITY$-NAME$(57,84):ZIP$-NAME$(85,94) 
: PH0NE$-NAME$(95, 108) 
755 CAT$=NAME$ ( 1 09, 1 10) 

770 GRAPHICS 0:SETCOLOR 2,5,2:G0SUB DI 
SBRK:? B $ ; F I HM$ : ? B $ : A D D S : ? B$;CITY$:? 

B$: ZIPS: ? B$; PHONES:? B$ : CATS 
780 POSITION 2,8:? "DO YOU WANT TO:":? 

" Q. PRINT A LABEL":? " Q. DELETE THIS 
LISTING":? " 0. CHANGE THIS LISTING" 
790 ? " Q. RETURN TO MENU" 
800 ? "CHOOSE 1,2,3 OR 4" ; : INPUT Q2 
810 IF Q2<1 OR Q2>4 THEN 780 
820 ON Q2 GOTO 840,900,950,300 
835 REM label printing routine 
840 GOSUB 7000 

850 OPEN #2,8,0,"P:" :LABEL-0 
860 GOSUB 7200 
870 GOTO 300 

895 REM file deletion routine 
900 ? :? "ARE YOU SURE THAT YOU WANT T 
DELETE THIS(ENTER Y OR N)"::INPUT 
V > 
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fix 



92 
93 
94 
95 
K. 
A 
96 
SU 
97 
98 
99 
1 
10 
3) 
10 
(T 
1 
1 
10 
10 
10 
e 

1 1 

S 

1 1 
1 1 
1 1 
01 
R 

1 1 
GO 
1 1 
1 1 
1 1 
1 1 
1 1 
1 2 
1 2 
, I 
EN 
1 2 



IF Q2$<>'Y" THEN 780 
G0S0B 7500 
GOTO 300 

RESTORE :NAME$='":? "IF LINE IS 0. 
PRESS RETURN. IF NOT MAKE CHANGES 
ND THEN PRESS RETURN'' 

? "(HERE ARE YOUR C A T A G R I E S : ) " : G 
B 6200 

POSITION 2 , 
FOR L 7-1 TO 6 : INPUT TEMP$ 
GOSUB 7 8 0: IF F L A G 4= 1 THEN 770 
00 READ CR.MARK 

10 IF LEN(TEMPS )>MARK THEN ? CHR$(25 
: RESTORE : POP : GOTO 770 
40 IF LEN(TEMP$)<MARK THEN TEMP$(LEN 
EMP$ )+l )-" ":GOTO 1040 
45 GOSUB 8500 

50 NAME$(LEN(NAME$)+1 )=TEMP$ 
60 NEXT L7 

70 MAINS (NL-1 1 0, NL-1 )=NAME$ : GOTO 300 
90 REM new data base creation rout in 



ER 

TH 

1 

20 

30 

NG 

6 

40 

RY 

50 

60 

70 

80 

90 

00 

05 

F 

TE 

06 



SETCOLOR 

ASE ANY AD 

AT O.K.?'' 

? "( ENTER 

IF Q2$<>" 

GOSUB DIS 

TO HAVE T 

CATAGORIES 



2,6,6 : ? "THIS IS GOING T 
DRESSES NOW IN MEMORY . I 

: INPUT Q2$ 



"WANT 
JUST 



YOU' RE G 
NAMES FO 



CATA 



: ? 
C$ 
CS 
CS 
C$ 
C$ 

THEY 

R " N" 



C$: 

"2" 

,. 3 „ 

•■4- 

"5" 
"6" 
" DOU 
ARE 
" : : I 



IF Q2$<>' 



Y OR N) 
Y" THEN 300 
BRK :MAIN$« "" : ? 
FURNISH THE 
.IF YOU DON'T" 
NAME A PARTICULAR 
RESS RETURN" 
1" ; : I N PUT CAT 1 $ 

INPUT CAT2$ 

INPUT CAT3$ 

INPUT CAT4S 

INPUT CAT5$ 

INPUT CAT6$ 
BLE CHECK TH 

O.K. ENTER 
NPUT Q 2 S 
Y" THEN GRAPHICS 0: ? "LE 



CATAGORIES 
Y' , IF NOT 
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ft 




12 

12 

: F 

K 

12 

ES 

12 

EN 

12 



7 

12 

12 

12 

12 

12 

E 

12 

12 

12 

13 

13 

13 

AN 

UT 

13 

13 

13 

14 

E 

14 

: 7 

14 

14 

14 

DI 

UB 

14 

SE 

14 



S TRY IT AGAIN:' : GOTO 1130 

09 REM add a file rout Ins 

10 GRAPHICS 0:SETCOLOR 2 , 6 , 2 : F L AG 1 - 1 
LAG6-1 :NAME$-' " : RESTORE : GOSUB DISBR 

20 IF LEN(MAIN$)-MSL THEN 7 "ALL FIL 

FULL" : GOTO 310 
30 7 "YOU MAY NOW ADD UP TO ";(MSL-L 
(MAINS ) )/1 1 0;" ADDRE SSES" 

IMU ; BK S : ? "[p [UB : B K$ : 7 " 
1" ; BK$ : ? UliMfl IJ" ; B K $ ( 1 , 1 ) : 
Mm- ;BK$(1 , 14) 



40 7 



":BK$(1 ,1 ) 
7 :? : GOSUB 6200 
50 OPEN #1 ,4.0. "K:" 
60 FOR L9-1 TO 6 

65 GOSUB 7800 : I F FLAG4-1 THEN RESTOR 
: GOTO 300 

70 READ CR. MARK: POSITION CR.L9:? "fl" 
REM move cursor to correct position 
80 GOSUB 5000 

90 NAME$(LEN(NAME$)+1 )-TEMP$ 
00 NEXT L9 
05 CLOSE #1 

10 MAIN$(LEN(MAIN$)+1 (-NAMES:? :? "W 
T TO ADD ANOTHER ( ENTER Y OR N)"::INP 

02$ 
20 RESTORE :IF Q2$-"Y" THEN 1210 
30 GOTO 300 

90 REM address book routine 
00 SETCOLOR 2,13,2:7 "DO YOU WANT TH 
BOOK SORTED ALPHA- BETICALLY BY:" 
10 ? "Q .LAST NAME":? "Q.CITY":? "OR" 

"Q.UNSORTED" 
20 ? "(ENTER 1.2 OR 3 )" : : INPUT Q5 
25 GOSUB 7 8 : I F FLAG4-1 THEN 300 
30 GRAPHICS : S ETCOLOR 2.13,2:G0SUB 
SBRK:? "DO YOU WANT:":GOSUB 6 2 00 : G OS 

6210 
35 GRAPHICS 0:7:7:?" PLEA 

STAND BY" : GOSUB DISBRK 
40 FLAG5-1 : STR-1 : STR2-1 : ENND-28 : ON Q 
GOTO 1460, 1450, 1800 
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1450 STH-57 : STR2-57 : ENND-84 : REM city$ 

1460 FOR L 1 5-L E N ( M A I N $ ) - 2 1 9 TO 1 STEP 

-110 

1465 SETCOLOR 2 , L 1 5/ 1 1 , L 1 6 

1470 IF FLAG5-0 THEN POP :G0T0 1800 

1480 F L AG 5-0 

1490 FOR L16-1 TO L15 STEP 1 10 

1500 NAME$=MAIN$( L16 , L16+1 09) : NAME2S-M 

AIN$(L16+1 10.L16 + 219) : IF Q 5 = 2 THEN 151 



1503 FOR L21-1 TO 2 8 : C I V $-N AME $ ( L 2 1 , L 2 
1 ) : I F ASC(CIV$)>159 THEN STR-L21 

1 504 NEXT L21 

1505 FOR L22-1 TO 2 8 : C I V $~N AME 2 $ ( L 2 2 , L 
2 2) : I F ASC(CIV$)>159 THEN STR2=L22 

1506 NEXT L22 

1510 IF NAME$( STR, E NN D ) <=N AME 2 $ ( S T R 2 , E 

NND) THEN 1530 

1520 MAIN$(L16,L16+109)-NAME2$:MAIN$(L 

16+110, L16+219)-NAME$:FLAG5-1 

1530 NEXT L 16 

1540 NEXT L15 

1550 REM sorting completed 

1800 GRAPHICS 0: Q3-1 : Q2$ = " Y" : PAGE=-1 : F 

LAG4-0.OPEN #2 . 8 , , " P :" : GOSUB 5 2 00 : G OS 

UB 6500 

1810 ? :? "DO YOU WANT ANOTHER COPY?": 

IF F LAG 4-1 THEN 300 

1820 ? "(ENTER Y OR N)";: INPUT Q2$ 

1830 IF Q2$-"Y" THEN 1800 

1840 GOTO 300 

1860 REM mass mailing routine 

1870 SETCOLOR 2,4,4:? "DO YOU WANT MAI 

LING LABELS FOR:" 

1880 GOSUB 6290 : GOSUB 6210 

1890 GOSUB 7000 

1900 PAGE— 1000: OPEN #2 , 8 , , " P : " : G OS U B 

6500 
1910 GOTO 300 

2000 SETCOLOR 2 , 1 3 , 4 : T EMP $-" " : I F FLAG1 
~0 THEN 4999 

2010 ? "SINCE YOU HAVE CHANGED SOME FI 
LESfOR CREATED NEW ONES)YOU MUST NOW 
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/T 



SAVE THE DATA ON TAP E." 

2020 ? 'INSERT THE Fll¥1 C A S S E T T E , R EWI N 

D TO START, PRESS PLAY' AND RECOR 

D' AND HIT RETURN' ." 

2025 ? "MAKE SURE THAT YOU USE THE DAT 

A TAPE, NOT THE PROGRAM TAPE.":GOSUB 5 

500 

2030 OPEN #1 ,8,0,"C:" 

2040 FOR L-1 TO 1 28 : PUT #1,0: MEXT L 

2050 ? #1 : C AT 1 $ : ? #1 ; C AT 2$ : ? # 1 ; C A T 3 $ : 

? #1 : CAT4S : ? #1;CAT5$:? #1 ; CAT6S 

2055 IF INT(LEN(MAIN$)/110)<>LEN(MAIN$ 

)/110 THEN MAIN$-MAIN$( 1 , L EN ( MA I N $ ) - 1 ) 

.GOTO 2 055 

2060 FOR L 1 2-1 TO L EN ( MA I N$ ) - 1 09 STEP 

110 

2070 TEMP$-MAIN$(L12,L12+109) : IF TEMPS 

(1,1)-"®" THEN 2075 

2073 ? #1 ; TEMPS 

2075 NEXT L12 

2080 ? #1 ; CHR$ ( 253) : CLOSE #1 

2090 ? :? "DO YOU WANT TO MAKE A/ANOTH 

ER BACK-UP TAPE( ENTER Y OR N)";:INPUT 

Q2$ 

2100 IF Q2$="Y" THEN 2020 

2110 IF 01=6 THEN 300 

4999 GRAPHICS 0:? :? "PROGRAM TERMINAT 
ED ." : END 

5000 TEMPS-'" : LNL=1 

5010 GET #1,KEY:IF K E Y = 1 55 THEN 5080:R 

EM check return button 

5020 IF KEY-126 AND LNL>1 THEN LNL=LNL 

-1 : TEMPS (LNL, LNL) ="": ? C H R $ ( K E Y ) ; : R EM 

backspace 

5030 IF KEY>96 AND KEY<123 THEN KEY=KE 

Y-32:REM convert lower case to upper 

5040 IF KEY<32 OR KEY>223 THEN 5 1 : R E 

M mask out bad input 

5050 IF KEY>122 AND KEY<160 THEN 5010: 

REM ditto 

5060 TEMPS ( LNL , LNL ) = CHR$ ( KEY ): ? CHR$(K 

EY) : : L N L-LML + 1 : IF LNL>MARK THEN 5080 

5070 GOTO 501 
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5080 IF LEN(TEMP$)<MARK THEN TEMP$(LEN 

.(TEMPS ) + l )-" ":GOTO 5080 

5090 RETURN 

5200 ? #2;" CATAGORY INDEX 

":? #2 

5210 ? #2:"1 ." ; CAT1 $ : ? #2 ; " 2 . " ; C AT2$ : ? 

#2;"3 ." :CAT3$: ? #2 : " 4 . ' ; C AT4 $ : ? #2 ; " 5 
.'"' ;CAT5$:? #2:"6 ." : CATB$ 
5220 FOR L18-1 TO 20:? #2:NEXT L18:F0R 

L19-1 TO 40:? #Z ;"-";: HEXT L 1 9 : FOR L2 
0=1 TO 5 : ? #2 : NEXT L20 
5230 RETURN 

5500 POKE 53775,35 : POKE 5 3 7 6 8 , 4 : POKE 
53764,0:POKE 5 3 7 6 6,0 -.POKE 53773,225 
5510 RETURN :REM per Atari this rout in 
e is necessary to help prevent tape er 
r o r s 

6000 FOR L10-1 TO CR:? CH R $ ( 3 1 ) ; : NEXT 
L 1 : R EM move cursor to right 
6010 RETURN 
6200 ? ' 
CAT3S : ? 
; CAT6S 
6205 RETURN 
6210 ? Q. ALL OF THE ABOVE.":? "(ENTER 

1,2,3,4,5,6 OR 7 ) " : : IN PUT Q4 
6220 RETURN 

6500 L ABEL~0 : REM printing control rout 
i n e 

6510 FOR L11-1 TO L E N ( MA I N$ ) - 1 09 STEP 
110 

6515 GOSUB 7 8 00 : I F FLAG4-1 THEN POP :R 
ETURN 

6520 NAMES=MAINS ( L 1 1 , L1 1 + 1 09 ) 
6525 IF NAMES (1,1) -'@" THEN 6560 
6530 IF Q4-7 THEN 6550 

6540 IF VAL(NAME$( 1 09 . 1 09) )<>Q4 THEN 6 
560 

6550 PAGE-PAGE+1 : IF PAGE-7 THEN PAGE=0 
: FOR L14-1 TO 40:? #2 ;"-";: N E XT L 1 4 : F 
R L15=1 TO 5: ? #2:NEXT L15 
6553 FOR L19=1 TO L E N ( N AME $ ) : C I V $ = N AME 
i $( L19 , L19) : IVC = ASC( CIV$) : IF I V C>1 59 TH 

\ 111 S 



i u n n 

'B.":CATU:? "B.":CAT2$:? |jL 
T]." : CAT4S : ? ^0. " ; C AT5 $ : ? ^Tj. 
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EN NAME$(L19, L19)-CHR$( IVC-128) 

6554 NEXT L 1 9 : REM this changes inverse 
characters back to normal, so we can p 

r 1 n t them 

6555 GOSUB 7200 
6560 NEXT Ml 

6570 CLOSE #2 : RETURN 

7000 ? :? "DO YOU WANT THE PHONE NUMBE 

R ON THE LABEL < ENTER Y OR N)";:INPUT 

Q2$ 
7010 ? "HOW MANY COPIES ; : INPUT Q3 
7020 RETURN 
7200 FOR L5-1 TO Q3 

7205 GOSUB 7800:IF FLAG4-1 THEN POP :R 
ETURN 

7210 ? #2 ; B4S ; NAMES ( 1 , 28 ) : ? #2;B4$;NAM 
E$(29,56):? #2 ; B 4$ ; N AME $ ( 5 7 , 84 ) : ? #2 ; B 
4$; NAMES (85, 94) 
7220 LE-4 

7230 IF 02$-" Y" THEN ? #2 ; B4 $ ; N AME $ ( 9 5 
,108) ,NAMES( 109,109) : L E-3 
7235 IF Q1-3 THEN L E-3 
7240 FOR L6-1 TO LE:? #2 : NEXT L6 
7250 NEXT L5 : RETURN 

7500 FLAG1-1 :MAIN$(L2,L2)-"@" :REM dele 
t e file 
7510 RETURN 

7800 FLAG4-0 : I F P E EK ( 5 3 2 7 9 ) -3 THEN FLA 
G 4 = 1 : REM check option button 
7810 RETURN 
8495 REM routine to convert lower case 

letters to upper case 
8500 FOR L1-1 TO L EN ( T EMP $ ) : T 1 -AS C ( T EM 
P$(L1 ,L1 ) ) : IF T1>96 THEN TEMPI ( L 1 . L 1 ) - 
CHR$ ( T 1-32 ) :NEXT LI 

8505 IF LEN(TEMP|)>MARK THEN TEMPI-TEM 
P$( 1 ,MARK) 
8510 RETURN 

9000 REM error trapping routine 
9010 ERfl-PEEK (195) : REM error # stored 
in location 195 

9020 ERRLN-PEEK(187)*256 + PEEK(186) :VV 
-0:REM error line # stored at these I o 
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r> 



c a 
90 
OP 
r e 
90 
90 
90 



t i 
30 
S: 



o n s , I ow by 
SETCOLOR 

REM turn s 

t trap 
IF ERR>8 
IF ERR-14 
IF ERR<>3 



t e first 

2,3,4:? CHR $ ( 2 5 3 ) :TRAP 

creen pink, sound buzzer, 



14 
5 

16 
9070 ? 'INPUT ERROR. EITHER THE VALUE W 



AND ERR<138 

1 THEN 9200 

AND ERR<>8 



THEN 9200 



THEN 9080 



AS 

YO 

90 

WA 

90 

90 

E 

L 

91 

00 

91 

91 

OS 

91 

91 

91 

NP 

i n 

91 

91 

3 : 

91 

92 

2 , 

t u 

92 

UN 

92 

92 

UN 

92 

92 

92 



U" 
75 
S 

80 
90 
TH 
CA 
00 
SE: 
10 
20 
E I'- 
ll 
40 
50 
UT 

g t 



IF 

? 

AT 
BLE 
? 

IF 



OUTSIDE THE EXPECTED RANGE OR 

"INPUT A LETTER WHERE A NUMBER 
CALLED FOR . " : ? :GOTO ERRLN-10 
ERR<>138 THEN 9110 

"PRINTER OR TAPE ERROR. MAKE SUR 
THE DEVICE IS TURNED ON AND AL 

"CONNECTIONS SECURE, AND THEN CH 
GOTO 9130 

ERR<140 OR ERR>143 THEN 9200 
"TAPE ERROR. REWIND AND THEN CHO 



? " 
? " 
? : ? 
ERRQ 



i 



RETURN 
END- 
ENTER 
REM r e s e 



TO MAIN MENU' 



VJ 



o main p r o g r 
60 ON ERRQ GOTO 
70 FLAG6-0: CLOSE 
GOTO MENU 
90 GRAPHICS 0: 

00 GRAPHICS 0: 

1 : FOR XX-1 TO 
rn cursor off; 
10 POSITION 14 
D 0,47,10,1 
20 FOR YY-1 
30 POSITION 
D 0,64,10,1 
40 FOR YY-1 
50 NEXT XX 

60 ? : ? "FATAL 
; ERRLN : ? "DEBUG 
RRLN : END 



1 OR 2 
I trap 
m 
9170,9190 

#1 : CLOSE 



" :TRAP 
before 



OOP 
re t 



S : I 
u r n 



#Z : CL OS E # 



3. 



POKE 
r 



END 

SETCOLOR 2 
5:REM turn screen 
all hope Is lost 
,10:? "FATAL ERROR" 
:REM make warbler sou 

TO 2 5 : N E X T YY 

10: ? 



14 



FATAL ERROR 



TO 25 : NEXT YY 



ERROR " ; ERR ;' 
AND RESTART' 



AT 
? 



75 
ed , 

: SO 
nd 

: SO 



INE 
1ST 
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FEATURES 



r. 



disable break key 
BB>127 THEN BB=BB- 
53774 ,BB 



9600 REM routine to 

9610 BB-PEEK ( 16) : IF 

1 28 : POKE 1 6 , BB : POKE 

9620 RETURN 

10000 REM supplies data for line 1270 

10010 DATA 6,28,8.28,9,28,10,10.9,14,1 

0,2 



TYPO TABLE 



Variable 
Line 
10 
230 
288 
400 
470 
575 
680 
790 
930 
1060 
1 190 
1245 
1390 
1465 
1540 
1910 
2055 
5020 
5220 
6510 
7000 
7510 
9040 
9140 
9240 



c h ( 
n urn 



k s urn 

a n g e 

20 

87 

90 

60 

70 

50 

80 

20 

050 

180 

243 

330 

460 

530 

900 

050 

010 

210 

500 

570 

500 

030 

130 

230 

001 



645006 
Code 
EA 
GY 
TM 
QD 
PJ 
BV 
MM 
ZO 
NL 
LK 
LL 
CO 
CM 
KU 
OB 
HM 
CJ 
EW 
PM 
BG 
DK 
XO 
VV 
DW 
WW 



Length 
561 
502 
465 
551 
510 
439 
584 
359 
373 
452 
524 
335 
520 
381 
440 
506 
459 
51 7 
520 
489 
486 
519 
505 
503 
282 
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Whenever you spend time and effort entering program code, word-processing text, or 
other voluminous data into your computer, be sure to save your work periodically to 
disk or tape. You should do this as often as every fifteen minutes or so. You won't 
regret it. 

This protects you against loss of the major portion of your work if you lose power 
or suffer computer lockup. These conditions do occur, and usually at the very worst 
times. 

Good intentions don't count here. You have to do it in order to benefit. A cheap 
kitchen timer or photo lab timer should be part of your computing paraphenalia. Just 
start it ticking when you start typing. You'll be surprised how soon it rings. 

As you save, alternate the file names so you don't write over your last material. 
For example, call your first saved piece DOC1, the second save DOC2, the third 
DOC1 again, etc. This makes sure you always have protection against a "bad" save. 

Cassettes for the Atari are notorious for loading problems. When backing up a 
program on cassette it is wise to save twice on each side (four times in all). Be sure to 
record the footage counter reading for each save so that you can find the starting 
places of the various saves. 
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Display 





«rl 




DOSlMl 



UtWCOL 



tocrr" 



pokMK. 



'serial port 



Memory Map 



What follows in this section is a list of important locations in the 
silicon memory of your ATARI 400 or 800. This sequential list of 
memory locations is called a memory map. The memory inside any 
ATARI is divided into sections called pages. Each page contains 256 bytes 
(locations). In a 64K machine there are 256 pages of memory. Memory is fur- 
ther divided into RAM and ROM locations. The ROM cannot be changed 
by the program. It is created at the factory and contains those values and pro- 
grams always available on any ATARI. The RAM memory addressess - 1012 
can be, and are altered by running programs. It is these low memory addresses 
that are described here. To adequately identify these RAM locations, our for- 
mat gives the decimal value of the location, the equivalent hexadecimal (base 
16) value, the number of contiguous locations serving the specified function, 
the name used in the Operating System listing published by Atari, and a 
description of the function. For example: 
783 $30F 1 CASFLG Cassette mode indicator. 

This means that location 783 (30F in hexidecimal) uses one byte for the func- 
tion called CASFLG, and is the cassette mode indicator. 

NOTE: Hexidecimal numbers are preceeded by a dollar sign ($). This nota- 
tion is arbitary but is the consensus method of indicating base 16 numbers. 

The low memory locations that follow are used by the Operating System for 
housekeeping functions. Information such as location of Player /Missile data, 
screen colors, timer values, interrupt vectors, display list pointers and almost 
any other important information needed by the system to operate is stored 
here. 

Figure 1 shows the gross memory map. This should give you some idea of 
where BASIC resides in memory, what part of memory is used and unused, etc. 

James Capparell, a native of Rochester, New York, and graduate of the University of Rochester, is 
the founder and publisher of ANTIC— The ATARI Resource. His interest in ATARI computers began 
while working as a programmer at NASA's Ames Research Center in Mountain View, California. He 
also did programming for Ford Aerospace in Palo Alto. He originally obtained an ATARI to augment his 
NASA projects, but soon became involved with it as a hobbyist and as founder of ABACUS, the Atari 
Bay Area Computer Users' Society. 
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Not all of the 65,536 possible memory locations are described, nor need to 
be. Most of memory is left "free" for the user. If you have 16K memory, your 
ATARI has RAM locations through 16,383 available. Then accessible 
memory jumps to the locations reserved for cartridges, such as BASIC, from 
40960 through 49151, and then to high memory where the Operating 
System's ROM locations are found (See Figure 1). 

Many low memory RAM locations are initialized by the Operating System 
in ROM when the computer is turned on. These values govern execution of 
user programs and are important for programmers to know. Additional infor- 
mation about memory is found in De Re Atari, the Atari Technical User Notes, 
(available from Atari Program Exchange), and in Mapping the ATARI, from 
COMPUTE! F3ooks. 





FIGURE 1 






Address in 




With no DOS 


Hexidecimal 


With DOS 


Operating System RAM 


0000 
1000 


Operating Syste 








2000 
3000 


DOS 2.0S 








4000 




Free 


5000 


Free 


RAM 
Space 


6000 

9000 
AOOO 
BOOO 


RAM 
Space 


BASIC or other 


BASIC or other 


8K cartridge 


C000 
D000 
E000 
F000 


8K cartridge 


unallocated 


unallocated 


hardware I/O 


hardware I/O 


Operating System 


Operating System 


ROM 


FFFF 


ROM 
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1 $0 2 LINZBS 
2$22CASINI 

4$4 2RAMLO 

6 $6 1 TRAMSZ 

7 $71 TSTDAT 

8 $8 1 WARMST 

9 $9 1 BOOT 



10$A2DOSVEC 
12 $C 2 DOSINI 



14$E2APPMHI 



16 $10 1 POKMSK 



17 $11 1 BRKKEY 

18$12 3RTCLOK 

21 $15 2BUFADR 
23 $17 1 ICCOMT 



Page Zero 

May be used to store VBLANK timer. 
If cassette booted successfully during powerup then 
JSR thru here. 

Ram pointer for memory test used on powerup. 
Temporary register for RAM size. 
RAM test data register. 
Warmstart flag set equal to 1 when S/RESET 
pushed. When set equal to then powerup retry. 
Boot flag success indicator. When equal to 1 then 
successful disk boot. When equal to 2 then successful 
cassette boot. 
Disk software start vector. 

Used to store address of initialization of application 
upon DOS boot. JSR indirect thru here to initialize 
application. 

Contains highest address of RAM needed by user. 
Screen handler opens S: only if no RAM needed 
below this address. 

IRQ service uses and alters POKMSK. These are 
POKEY interrupts. Shadow for IRQEN[$D20E]. 
bit 7 = 1 Break key interrupt enable. 
bit 6 = 1 Other key interrupt enable, 
bit 5 = 1 Serial input data ready interrupt enable, 
bit 4= 1 Serial output data needed interrupt enable, 
bit 3 = 1 Serial out finished interrupt enable, 
bit 2 = 1 Timer 4 interrupt enable. 
bit 1 = 1 Timer 1 interrupt enable. 
This is initalized to 1 by OS (1 =no break key 
pressed). Monitored by keyboard, also screen editor. 
Break during I/O returns status of $80. This is set to 
when break key is pressed. 

Updated every Vblank interrupt (1/60 Sec.) Called 
frame counter, initialized to and overflows to 0. 
The least significant byte of counter is $12 and it uses 
16 msec units. 

Indirect buffer address register. Used as a temporary 
Page Zero pointer to current disk buffer. 
Command for CIO vector. Used to find correct vec- 
tor to the handler routine. 
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24 $18 2 DSKFMS 
26 $1A 2 DSKUTL 

28$1C1 PTIMOT 

29$1D 1 PBPNT 

30$1E1 PBUFSZ 



31 $1F 1 PTEMP 

32 $20 1 ZIOCB 

33 $21 1 ICDNOZ 

34 $22 1 ICCOMZ 

35 $23 1 ICSTAZ 

36 $24 2 ICBALZ 
38 $26 2 ICPTLZ 
40 $28 2 ICBLIZ 

42 $2A 2 ICAZIZ 

43 $2B 1 ICAX2Z 

44 $2C 2 ICSPRZ 
46 $2E 1 ICSPRZ 
47$2F 1 CIOCHR 

48 $30 1 STATUS 

49 $31 1 CHKSUM 

50 $32 2 BUFRLO 

52 $34 2 BFENLO 

54 $36 1 CRETRY 

55 $37 1 DRETRY 

56 $38 1 BUFRFL 

57 $39 1 RECVDN 

58 $3A 1 XMTDON 



Disk file manager pointer. Used as vector to FMS. 

Disk utilities pointer. Points to a buffer for utilities 

package. 

Printer timeout every printer status request. Typical 

timeout for the 825 is 5 seconds. Initialized to 30 sec. 

Print buffer pointer, index into printer buffer ranges 

from to value of PBUFSZ. 

Print buffer size of printer record for current mode. 

normal =40 bytes 

double width =20 bytes 

sideways =29 bytes (Atari 820 printer) 

status =4 

Printer handler uses this temp register to save value 

of character to output to printer. 

Handler index number into the device name table 

for currently opened file. Set to 255 if no file opened. 

Device # (DRIVE #). Initialized to 1. 

Command code. 

Status of last IOCB action. 

Buffer address for data transfer. 

Put byte routine (address -1) set by OS. 

Buffer length byte count used by PUT and GET 

commands. 

Auxiliary information first byte used in OPEN to 

specify type of file access. 

Auxiliary information second byte. CIO working 

variables. 

Spare bytes local CIO use. 

IOCB Number multiplied by 16. 

Character byte for current operation. 

Internal status storage. 

Single byte sum with carry to least significant bit. 

Pointer to data buffer transmitted during I/O 

operation. 

Next byte past end of data buffer. 

Number of command frame retries. Default is 13. 

Number of device retries. Default is one. 

Buffer full flag. (255 indicates full). 

Receive done flag. (255 indicates done). 

Transmission done flag. (255 indicates done). 
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59 $3B 1 CHKSNT 

60 $3C 1 NOCKSM 

61 $3D 1 BPTR 



62$3E1 FTYPE 

63 $3F 1 FEOF 

64 $40 1 FREQ 

65 $41 1 SOUNDR 

66 $42 1 CRITIC 

67 $43 7 FMSZPO 

74 $4A 1 CKEY 

75 $4B 1 CASSBT 

76 $4C 1 DSTAT 
77$4D 1 ATRACT 



78 $4E 1 DRKMSK 

79 $4F 1 COLRSH 



80 $50 1 TEMP 

81 $51 1 HOLD1 



Checksum sent flag. (255 indicates done). 

No checksum follows data flag. Zero indicates 

checksum follows transmission. 

Cassette record data index into data portion of 

record being read or written. Values range to 

current value BLIM1 [$28A]. When BPTR=BLIM 

then buffer CASBOFF [$3FD] is empty if reading or 

full if writing. 

Interecord gap type. Copy of ICAX2Z from open 

command. (0 indicates continuous gaps; non-zero 

indicates normal gaps.) 

Cassette end of file flag used by cassette handler to 

indicate end of file. 

Beep count. Retain and count number of beeps 

requested of beep routine by cassette handler during 

open processing; one beep for play, two for record. 

Noisy I/O flag, when I/O is done buzzer sounds. 

POKE and it won't buzz. 

Defines critical section (if non-zero) checked on NMI 

process after stage 1 processed. 

Disk file manager zero page. 

Cassette boot request flag on powerup (coldstart). 

Start key checked, if pressed then CKEY is set. 

Cassette boot flag. 

Display status used by display handler. 

Attract flag set to by IRQ whenever a key is 

pressed. Incremented every 4 seconds by stage 1 

Vblank. When value is <^ 127 then value is set to 

$FE until attract mode is terminated. 

Dark attract mask=$FE when attract mode inactive. 

Attract color shifter XOR'd with playfield colors. At 

stage 2 Vblank color registers are XORd with 

COLRSH and DRKMSK then sent to hardware 

color registers. When attract inactive COLRSH =0 

and DRKMSK =$F6 reducing luminance 50% and 

COLRSH =RTCLOCK+ 1 affecting color change 

every 256/60=4.1 sec. 

Used by display handler in moving data to and from 

screen. 

Same as [$50]. When BASIC in use these 2 locations 
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82 $52 1 LMARGN 

83 $53 1 RMARGN 



84 $54 1 ROWCRS 

85 $55 2 COLORS 

87 $57 1 DINDEX 

88 $58 2 SAVMSC 
90$5A 1 OLDROW 

91 $5B2 0LDCOL 
93 $5D 1 OLDCHR 
94$5E2 0LDADR 

96 $60 1 NEWROW 

97 $61 2NEWC0L 

99 $63 1 LOGCOL 

100 $64 2 ADRESS 

102 $66 2 M LUMP 

104 $68 2 SAVADR 
106 $6A 1 RAMTOP 



called LOMEM and point to 256 byte buffer at end 

of OS. RAM used to tokenize one line of BASIC. 

Column of left margin of text screen, initialized to 2. 

Column of right margin of text screen initialized to 

39. Margins are user alterable. Ignored in every mode 

butO. 

Display row number used in graphics screen and 

mode 0. Range - 191. This location and COLCRS 

define the cursor location for the next data element 

to be read/written to main screen segment. 

Display column number used in graphics and mode 

Gobyte). Range - 319 (hibyte). Home position is 

0,0 for both graphics and text. 

Display mode current screen mode obtained from 

low order 4 bits of most recent open AUX1 byte. 

Lowest address of display memory this location 

corresponds to the upper left corner of screen. 

These next 3 locations are updated from ROWCRS 

and COLCRS before every operation. This location 

is used by DRAWTO and XIO to determine starting 

row. 

These variables used only in draw and fill 

commands. 

Retains value of character under visible text cursor. 

Used to restore character after cursor moves. 

Retains memory address of current visible text cursor 

location. Used in conjunction with OLDCHR to 

restore character value after cursor moves. 

Indicates row location that the DRAWTO and XIO 

fill routine will use. 

Indicates column DRAWTO and XIO will go. 

Points at cursor position in logical line. A logical line 

can contain up to 3 physical lines. This variable is 

used by display handler and ranges from to 119. 

Temporary storage holds contents of SAVMSC 

[$58]. 

OPNTMP first byte used in open as temporary 

storage. 

Temporary storage. 

RAM size defined by power on logic. This value is 
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107 $6B 1 BUFCNT 

108 $6C 2 BUFSTR 
110$6E1 BITMSK 
111 $6F 1 SHFAMT 
112$70 2ROWAC 
114$72 2COLAC 
116 $74 2 ENDPT 



118 $76 1 DELTAR 
119$772DELTAC 



121 $79 1 ROWINC 

122 $7A 1 COLINC 

123 $7B 1 SWPFLG 

124 $7C 1 HOLDCH 

125 $7D 1 INSDAT 
126$7E2COUNTR 



128 $80 2 LOMEM 

130 $82 2 VNTP 

132 $84 2 VNTD 
134 $86 2 VVTP 
136$88 2STMTAB 

138 $8A 2 STMCUR 



given in pages (page = 256 bytes of memory). 

Screen editor current logical line size. 

Editor low byte. 

Used in bit mapping routines by OS display handler. 

Pixel justification. 

Control for row and column point plotting. 

Controls column point plotting. 

Contains larger of DELTAR and DELTAC used in 

conjunction with ROWAC/COLAC to control 

plotting of line points. 

Contains absolute value of NEWROW minus 

ROWCRS. 

Contains absolute value NEWCOL minus 

COLCRS. These values and ROWINC and 

COLINC define slope of line to be drawn. 

Row increment + 1 or - 1 . 

Column increment + 1 or — 1. 

Split screen cursor control. 

Character moved here before control and shift logic 

processed. 

Temporary storage used by display handler. 

Initially contains larger of DELTAR and DELTAC 

which is number of iterations to generate a line. This 

value decremented after every point is plotted. 

When =0 then line is finished. 

This points to a 256 byte buffer used to tokenize one 

line of BASIC. This buffer is located at the end of 

the O.S.RAM. 

Points to list of all variable names used in a program. 

Each name is stored in the order entered. Maximum 

of 128 names. 

Points to end of variable name table. Points to a zero 

byte when all 128 names not used. 

Points to variable value table. Eight bytes allocated 

for each variable in name table. 

Points to statement table which contains the 

tokenized BASIC statements. Also the immediate 

mode lines. 

The BASIC interpreter uses this pointer to access 

the tokens within a line of the statement table. 
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140 $8C 2 STARP Points to the block containing all the string and 

array data. Memory is reserved and enlarged 
whenever a dimension statement is encountered. 
Strings are stored one byte (ATASCII) per character. 
Arrays are stored as six byte BCD (Binary Coded 
Decimal) per element. 

Points to the software run time stack. The stack 
maintains GOSUB and FOR/NEXT entries. The 
POP statement affects this stack. 
Points to the end of the user program. The FRE 
function returns the value calculated by subtracting 
the contents of this location from the contents of 
HIMEM at $2E5 and $2E6. Don't confuse this 
MEMTOP with the O.S. variable of the same name 
at $2E5. 
The remainder of Page Zero is used by BASIC cartridge, floating point 

routines and assembler cartridges. 

Page One is the stack area and is not available for use by programmers. 



142 $8E 2 RUNSTK 



144 $90 2 MEMTOP 



512$200 2VDSLST 

514$202 2VPRCED 
516 $204 2 VINTER 
51 8 $206 2 V 'BREAK 
520 $208 2 VKEYBD 
522 $20A 2 VSERIN 
524 $20C 2 VSEROR 
526 $20E 2 VSEROC 
528 $210 2 VTIMR1 



Page Two 

Initialized to [$E7B3] if NMI interrupt occurred and 

it was caused by a DLI then JMP thru here. Since 

the OS does not use DLIs this is initialized to point 

to an RTI. 

Initialized to [$E7B2] if IRQ interrupt occurred due 

to serial I/O bus proceed line then JMP thru here. 

Initialized to [$E7B2] if IRQ interrupt due to serial 

I/O bus interrupt then JMP thru here. 

Initialized to [$E7B2] if IRQ interrupt due to 6502 

BRK instruction execution then JMP thru here. 

Initialized to [$FFBE] if IRQ interrupt due to 

keypress then JMP thru here to keyboard handler. 

Initialized to [$EB1 1] if IRQ interrupt due to I/O bus 

input ready then JMP thru here. 

Initialized to [$EA90] if IRQ interrupt due to I/O 

bus output ready then JMP thru here. 

Initialized to [$EAD1] if IRQ interrupt due to I/O 

bus output complete then JMP thru here. 

POKEY timer 1 interrupt vector. 
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530 $212 2 VTIMR2 
532 $214 2 VTIMR4 
534 $216 2 VIM IRQ 

536$218 2CDTMV1 



538$21A2CDTMV2 

540$21C2CDTMV3 

542 $21 E 2 CD! MV 4 
544 $220 2 DCTMV5 

546 $222 2 VVBLKI 

548 $224 2 VVBLKD 
550 $226 2 CDTMA1 

552$228 2CDTMA2 

554 $22 A 1 CDTMF3 

555 $22 B 1 SRTIMR 



556 $22C 1 CDTMF4 

557 $22 D 1 INTEMP 

558 $22E 1 CDTMF5 

559 $22 F 1 SMDCTL 



POKEY timer 2 interrupt vector. 
POKEY timer 4 interrupt vector. 
Initialized to [$E6F6] if IRQ interrupt occurs then 
JMP thru here to determine cause. 
SIO timeout decremented at every VBLANK stage 1 
when this location counts down to then JSR thru 
CDTMA1 [$226]. 

Timer decremented at almost every VBLANK 
subject to critical section test (stage 2 process). 
Timer decremented at almost every VBLANK 
subject to critical section test (stage 2 process). 
Timer same as 2 & 3. 
Timer same as 2,3 &l 4. 3,4,5 set flags 
CDTMF3=$22A CDTMF4=$22C and 
CDTMV5 =$22E when they equal zero. 
Initialized to [$E701] stage 1 vertical blank vector 
NMI interrupt. 

Initialized to [$E93E] system return from interrupt. 
SIO timeout vector. When CDTMV1 [$218] times 
out it vectors through here. 

NO SYSTEM FUNCTION. Available to user enter 
address of routine to be executed at timer count 
down to 0. 

Byte flag set when CDTMV3 [$21C,21D] counts 
down to 0. 

Software repeat timer, controlled by IRQ device 
routine, establishes initial Vi second delay before key 
will repeat. Stage 2 Vblank establishes 1/10 second 
repeat rate. Decrements timer, implements auto 
repeat logic. 

Byte flag set when CDTMV4 [$21E] counts down to 
0. 

Used by SETVBL routine. 
Byte flag set when CDTMV5 [$220] counts to 0. 
Shadow for DMACTL [$D400] default value $22. 
bit 5 = 1 enable Display List instruction fetch DMA. 
bit 4 = 1 enable 1 line P/M resolution. 
=0 enable 2 line P/M resolution, 
bit 3 = 1 enable Player DMA. 
bit 2 = 1 enable Missile DMA. 
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560 $230 2 SDLSTL 
562 $232 1 SSKCTL 



563 $233 1 SPARE 

564 $234 1 LPENH 



565 $235 1 LPENV 

566 $236 4 SPARE 
570$23A 1 CDEVIC 

571 $23B 1 CCOMND 

572 $23C 1 CAUXI 

573 $23 D 1 CAUX2 

574 $23E 1 TEMP 

575 $23F 1 ERRFLG 

576 $240 1 D FLAGS 

577 $241 1 DBSECT 

578 $242 2 BOOTAD 
580 $244 1 COLDST 



581 $245 1 SPARE 



bit 1,0=0 no Playfield DMA. 

=0 1 narrow Playfield DMA 128 color clocks. 

= 1 standard Playfield DMA 160 clocks. 

= 1 1 wide Playfield DMA 192 clocks. 
Shadow for DLISTL [$D402]. This location 
initialized to Start of Display List. 
Shadow for SKCTL [$D20F]. 
bit 7 = 1 force break serial output to 0. 
bit 6,4=serial port mode control, 
bit 3 = 1 serial output transmitted as 2 -tone instead of 
logic true/false. 

bit 2 = 1 pot counter completes within 2 scan lines 
instead of 1 frame time, 
bit 1 = 1 enable keyboard scanning circuit. 
NO OPERATING SYSTEM FUNCTION. 
Light pen horizontal value shadow for [$D40C]. 
Value range 0-227 wrap to at right edge of standard 
width screen. 

Light pen verticl value shadow for [$D40D]. Value 
same as VCOUNT 2 line resoluton. Both pen values 
modified if any joystick trigger lines pulled low. 
NO OPERATING SYSTEM FUNCTION. 
SIO bus I.D. number. 
SIO bus command code. 
SIO auxiliary byte loaded from location 778. 
SIO command auxiliary byte loaded from location 
779. 

Receives one-byte responses from serial bus con- 
trollers. 

SIO error flag. Indicates any device error except 
timeout errors. 

Disk flags from sector 1, contains value of first byte 
of boot file. 

Number of disk boot sectors. 
Address where disk boot loader will be put. 
Coldstart flag when = 1 then powerup in progress. 
When = then S/RESET in progress. If set = 1 
during normal program execution then S/RESET 
will act like powerup giving some protection. 
NO OPERATING SYSTEM FUNCTION. 



206 



MEMORY MAP 



582 $246 1 DSKTIM 

583 $247 40 LIN BUF 



623 $26 F 1 G PRIOR 

624 $270 8 PADDLO- 

PADDL7 
632 $278 4 STICKO- 
STICK3 



636 $27C 8 PTRIGO- 
PTRIG7 
644 $284 4 STRIGO 

648 $288 1 CSTAT 

649 $289 1 WMODE 

650 $28A 1 BUM 



651 $28B 4 SPARE 

656 $290 1 TXT ROW 

657 $291 2 TXTCOL 
659 $293 1 TINDEX 



660 $294 2 TXTMSC 
662 $296 6 TXTOLD 

668 $29C 1 TMPXI 

669 $29D 1 HOLD3 

670$29E1 SUBTMP 

671 $29F 1 HOLD2 

672 $2A0 1 DMASK 



Disk timeout register. 

Forty byte character line buffer used to temporarily 

buffer one physical line of text when screen editor is 

moving screen data. 

Global priority shadow for PRIOR [$D01B] controls 

priority of player /missile /playfield. 

These locations store values returned when paddles 

are used. Values are between and 228. 

These locations store values returned when a joystick 

is used. There are 9 possible values. These locations 

are shadows (duplicates) of ROM locations 53760- 

53767. 

These locations store values of trigger on paddles. 

Joystick trigger - 3. 

Cassette status register. 

Used by cassette handler as read/write mode flag. 

Zero = read; $80 = write. 

Cassette record data size count of number of data 

bytes being read. Range 1-128 depends on record 

control byte. 

NO OPERATING SYSTEM FUNCTION. Use of 

these bytes in your program may conflict with later 

OS upgrades. 

Text window row cursor range 0-3. Specifies where 

next read /write will occur. 

Text window column cursor range 0-39 used in split 

screen. These two variables give cursor position. 

Split screen text window graphics mode. Index 

always = 0. When SWPFLG [$7B]=0. This is split 

screen equivalent of DINDEX. 

Split screen text window version SAVMSC [$58]. 

Old row and old column for text and then some split 

screen cursor data. 

Temporary storage. 

Used by the display handler to hold scroll loop 

counter. 

Temporary storage. Unknown function. 

Temporary storage. Unknown function. 

Pixel location mask. 
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673$2A1 1 TMPLBT 
674 $2A2 1 ESCFLG 



675$2A3 15TABMAP 
690 $2B2 4 LOGMAP 

694$2B6 1 INVFLG 

695 $2B7 1 FILFLG 

696$2B8 1 TMPROW 
697 $2B9 2 TMPCOL 

699 $2BB 1 SCRFLG 

700 $2BC 1 H0LD4 



701 $2BD 1 H0LD5 

702 $2BE 1 SHFLOK 



703 $2BF 1 BOTSCR 

704 $2C0 4 PCOLRO - 

PCOLR3 
PCOLRO 
PCOLR1 
PC0LR2 
PC0LR3 
708 $2C4 5 COLORO - 
C0L0R4 
COLORO 



Temporary storage for bit map. 

Used by screen editor. Flag set to $80 when 

ESC[$1B] character detected. Reset to following 

output of next character. Causes character following 

ESC to be displayed, only exception is EOL [$9B]. 

Indicates where tab stops are set. There are 120 

possible tab stops in one logical line. 

Logical line bitmap. When a bit is set then a logical 

line starts at the corresponding physical row number. 

All bits set to 1 when text screen is opened or 

cleared. 

Inverse video flag toggled by ATARI logo key sets bit 

7 = 1 

Indicates to display handler whether current 

operation is Fill (not 0) or Draw (0) 

Temporary storage used by ROWCRS [$54]. 

Temporary storage used by COLCRS [$55]. 

Scroll flag set to number of physical lines minus 1 

that were deleted from top of screen. Since logical 

lines range from 1 - 3 physical lines then this variable 

ranges from 0-2. 

Used to save and restore value in ATACHR[$2FB] 

during fill process when ATACHR is temporarily set 

to value in FILDAT[$2FD]. 

Similiar function to HOLD4. 

Shift /control lock flag initialized to $40 at powerup 

$00=normal mode lower case alpha $61-$7A 

$40=caps lock upper case $41-$5A 

$80=controllock$01-$lA 

Bottom of screen. If = 4, then mixed graphics mode. 

If = 24 then normal text mode. 

Player color registers and shadows 
= COLPM0[$D012] 
= COLPM1[$D013] 
= COLPM2[$D014] 
= COLPM3[$D015] 

Playfield color registers and shadows. 
= COLPF0[$D106] 
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COLOR1 

COLOR2 

COLOR3 

COLOR4 

713 $2C9 23 SPARE 

736 $2E0 2 GLBABS 

738 $2E1 2 SPARE 

740$2E4 1 RAMSIZ 



741 $2E5 2 MEM TOP 



743 $2E7 2 MEMLO 

745 $2E9 1 SPARE 

746 $2EA 4 DVSTAT 

750 $2EE 2 CBAUDL 

752 $2F0 1 CRSINH 

753 $2F1 1 KEYDEL 



754$2F2 1 CH1 



755 $2F3 1 CHACT 
bit 2 = 1 
bit 1 = 2 
bit = 1 



= COLPF1[$D017] 
= COLPF2[$D018] 
= COLPF3[$D019] 

= COLBK[$D01A] 

** 

Contains entry address of code for auto -boot /run. 
** 

Size in pages (page = 256 bytes) of available RAM 

permanently retains RAM top address contained in 

TRAMSZ[$6]. With BASIC and 48K installed this 

equals $160=40960 bytes. 

Top of available user memory RAMSIZ less display 

list and display memory (first nonuseable program 

address). This value established by powerup logic 

and reset. Re-established when screen display is 

opened. 

Bottom of available user memory established at 

powerup and reset, not altered after that. 

** 

Device status buffer Get status command puts 

information in these bytes. 

Cassette baud rate low byte. 

Cursor inhibit flag. When equal to then cursor 

turned on. If not equal then no visible cursor. 

Key delay set to 3 whenever key code accepted. 

Decremented every 1/60 sec by stage 2 VBLANK 

process until it reaches 0. 

Prior key code read and accepted. Current key 

pressed compared with contents of CHI if same then 

debounce time checked if OK then accepted. If 

current key not the same as CHI then accepted. 

When code is accepted then stored in CH[$2FC]. 

Shadow for CHACTL[$D401] character control 

register. 

Causes current character line to invert, sampled at 

every char. line. 

In 40 char, mode if bit 7 of current char, code = 1 

then char, is blue on white. 

In 40 char, mode if bit 7 of current char, code = 1 

then char, will be blank. Blinking char, produced by 
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756 $2F4 1 CHBAS 



757 $2F 5 5 SPARE 
762 $2FA 1 CHAR 



763$2FB 1 ATACHR 



764 $2FC 1 CH 



765 $2FD 1 FILDAT 
766 $2FE 1 DSPFLG 



767S2FF1 SSFLAG 



setting bit 7 of char, and periodically changing bit 

here. 

Vector to page address of character set initialized to 

$E0 (upper case and punctuation). The character set 

in ROM is located at $E000-$E3FF, shadow for 

CHBASE[$D409]. 

** 

Contains internal code corresponding to what is in 

ATACHR[$2FB]. This will be converted to ATASCII 

code. 

ATASCII value for most recent character read or 

written or value of the graphics point. This value 

also determines color of line in draw and fill 

commands. 

Holds keyboard code for a character (not ATASCII). 

Keyboard handler gets all data from here when it 

gets a character it writes $FF here to indicate code 

read. This location loaded when a key is pressed 

causing an IRQ interrupt which vectors at $208. 

This interrupt service routine loads the code into 

$2FC for processing at VBLANK stage 2. 

Color to be used by XIO FILL Command. 

Display flag will allow control codes other than EOL 

[$98B] to be displayed if flag not equal to 0. If flag = 

then control codes processed normally. 

Start /stop flag toggled by control- 1 keys cleared by 

break key, reset key, or powerup 



Page Three 

DCB DEVICE CONTROL BLOCK 
Used for handler /SIO communication and between user and disk handler. 



768 $300 1 DDEVIC 

769 $301 1 DUNIT 

770 $302 1 DCOMND 

771 $303 1 DSTATS 

772 $304 2 DBUFLO 

774 $306 1 DTIMLO 

775 $307 1 DUNUSE 



Pheripheral unit bus I.D. number. 

Unit number. 

Bus command. 

Command type status return. 

Data buffer pointer. Set by handler to indicate source 

or destination data buffer. 

Device timeout in 64/80 second units. Set by 

handler. 

Unused in DCB. 
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776 $308 2 DBYTLO 

778 $30 A 1 DAUX1 

779$30B 1 DAUX2 
780 $30C 2 TIMER1 

782 $30E 1 ADDCOR 

783 $30F 1 CASFLG 

784 $310 2 TIM ER2 

786 $312 2 TEMPI 

788 $314 1 TEMP2 

789 $315 1 TEMP3 

790 $316 1 SAVIO 

791 $317 1 TIMFLG 

792 $318 1 STACKP 

793 $319 1 TSTAT 

794 $31 A 38 HTABS 



Number of bytes to be transferred into or out of data 

buffer. Not required if no data transfer. 

Command auxiliary byte 1. Device specific 

information set by handler. 

Command auxiliary byte 2. 

Initial timer value. 

Used for interpolation adjustment of baud rate. 

Cassette mode when set. 

Final timer value used with TIMER1 to compute 

interval for baud rate. 

Temporary storage. 



Save serial data port. 

Time out flag for baud rate correction. 

SIO stack pointer save cell. 

Temporary status holder. 

Start of handler address table. 

IOCB START OF I/O CONTROL BLOCKS 

Used to communicate information between user program and CIO. 

Space reserved for 8 IOCBs. 

Handler index number ($FF = IOCB unused). 

Device number (drive number). 

Command code. 

Status of last IOCB action. 

Buffer address. 

Put byte routine address minus 1. 

Buffer length. 

Auxiliary information first byte. 

Auxiliary information second byte. 

*** Spare bytes *** 



832 $340 1 ICHID 

833 $341 1 ICDNO 

834 $342 1 ICCOM 

835 $343 1 ICSTA 

836 $344 2 ICBAL 
838 $346 2 ICPTL 
840 $348 2 ICBLL 

842 $34A 1 ICAX1 

843 $34B 1 ICAX2 

844 $34C 3 ICSPR 
860 $350 16 IOCB # 1 
876 $360 16 IOCB # 2 
892 $370 16 IOCB # 3 
908 $380 16 IOCB # 4 
924 $390 16 IOCB # 5 
940 $3A0 16 IOCB # 6 
956 $3B0 16 IOCB # 7 
972 $3C0 40 PRNBUF 
1012$3E8 21 SPARE 



Printer buffer. 

*** Spare bytes *** 
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Scrolling 



The strongest features of the ATARI relative to game programming are 
the 12 Graphics Modes (high resolution 320 x 192); two direct 
memory access (DMA) video channels (sort of a simplified multipro- 
cessing system); display-list controlled, memory-mapped graphics; redefinable 
character sets; hooks for vertical blank interrupts and scan line interrupts; 
and, of course, four channels of sound. 

The ATARI maps its memory to video via an LSI chip called ANTIC. 
This chip is a dedicated processor with its own instruction set. These instruc- 
tions make up what is called a display list. The display list controls the 
Graphics Mode which will be displayed on the screen. Recall that there are 12 
modes, each specifying memory use, resolution and color. The display list tells 
ANTIC what part of the 6502 memory space to display, what mode to display, 
whether an interrupt should be generated, and whether horizontal and/or 
vertical scrolling should be enabled. It is this last feature which will be 
demonstrated here. 

There are two methods which can be used to scroll the image. The first is 
direct and easy to comprehend. The display list has, as part of its instructions, 
a feature called Load Memory Scan (LMS). This operator is three bytes long. 
The last two bytes are the address (lo-byte/hi-byte, 6502 style) of the start of 
display memory. As a result, the entire address space is available for display 
under program control. This gives the observer a "window" into memory. 
Scrolling windows are created by simply changing the two address bytes of the 
LMS. In other words, it is not data being moved through memory, but a win- 
dow moving across the data residing in memory which causes the image to 
scroll. 

Listing 1 should give a good idea of "coarse" vertical scrolling. I call it 
coarse because the image moves a full character width at a time. Lines 170 and 
180 are really doing all the dirty work. The new display address is being insert- 
ed into the display list at this point after appropriate incrementing or 

"Scrolling," by lames CapareU, is reprinted uith permission from MICRO Magazine, hue No. 42, P.O. Box 6502, 
Amherst, Mi 03031. 
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decrementing of the address bytes. I've chosen to vertically scroll the entire 
image but it is an easy matter to set up a scrolling window within a 
background display. In fact, Listing 2 does just that, only in the horizontal 
direction. 

I've also mixed two modes on the screen. The only complication here is 
the need to have more than one LMS instruction. The second LMS restores 
the pointer to memory prior to the horizontal intrusion. There is nothing to 
stop you from placing an LMS instruction on every mode line; each could be 
scrolling in independent directions. 

Listing 3 is meant to demonstrate the second scrolling method, smooth or 
fine scrolling. This is accomplished with the help of hardware scrolling 
registers, one for horizontal and another for vertical direction. When the ap- 
propriate bits are set in a display list instruction, the values in each of these 
registers control the number of scan lines vertically or color clocks horizontal- 
ly that each line will be displaced. The limitation here is the amount of fine 
scrolling allowed. A line can be moved eight full color-clocks horizontally and 
16 scan lines vertically. When this amount is scrolled, the LMS address bytes 
must be incremented or decremented and the whole process must be started 
again, in this way smooth scrolling can be maintained. 

t>A' James Capparell 



/T 



1 

15 
SP 
20 
ET 
30 
M 
40 
50 
F 

55 
60 
AI 
70 
OT 
80 
OT 



REM COARSE VERTICAL SCROLLING DEM 

REM PRESS UP/DOWN ARROWS TO MOVE 
LAY THRU MEMORY 

DLIST PEEK( 560) i PEEK( 561 ) * 2 5 6 : REM 

START OF DISPLAY LIST 

LMSL=DLIST+4: REM POINTER TO DISPL 
EMORY 

LMSH=DLIST+5 

DISPLAYL-0: REM INITIALIZE ADDRESS 
DISPLAY MEMORY 

REM READ KEYROARD 

IF P E EK ( 764 ) 2 5 5 THEN GOTO 60:REM 
T FOR KEY 

IF PEEK(764)=14 THEN POKE 764,255 
110: REM UP ARROW / 

IF PEEK(764)=15 THEN POKE 764,255 
140: REM DOWN ARROW ? 

GOTO 60 



01 

G 

AY 



W 
G 
G 
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100 REM MOVE DISPLAY WINDOW INTO LOWEfT 

MEMORY 
110 DISPLAYL -DISPLAYL-40 
120 IF DISPLAYL>=0 THEN GOTO 1 7 : REM C 
ANT DISPLAY NEGATIVE MEMORY 
122 DISPLAYH=DISPLAYH-1:DISPLAYL=0 
124 IF DISPLAYH<0 THEN OISPLAYH=0 
126 GOTO 170 

130 REM MOVE DISPLAY WINDOW INTO HIGHE 
R MEMORY 

140 DISPLAYL=DISPLAYL+40 
150 IF DISPLAYL>240 THEN D I S P L A Y H = D I S P 
LAYH+1 : DISPLAYL=0 

160 REM CHANGE DISPLAY MEMORY POINTER 
170 POKE LMSL .DISPLAYL : REM PUT NEW DIP 
LAY ADDR IN DISPLAY LIST 
180 POKE LMSH.DISPLAYH 
200 GOTO 60:REM GO WAIT FOR KEYBOARD E 



NTRY 



10 REM COARSE HORIZONTAL SCROLLING DEM 



20 REM USE LEFT AND RIGHT POINTING ARR 

OWS TO CONTROL SCROLL DIRECTION 

25 LIST 

30 DLST = PEEK{ 561 ) * 2 5 6 + P E EK ( 56 ) 

3 5 DMEM=PEEK(DLST+4)+PEEK(DLST+5)*256 

40 SKIPH = INT( ( DMEM+Z80 ) /256 ) : SKI PL DME 

M+280-SKIPH-256 

45 POKE DLST + 15,66:P0KE DL ST + 1 6 , SKI PL : 

POKE DLST+1 7 .SKIPH 

50 A D D R L = D L S T i 1 3 : A D D R H D L S T -i 1 4 : V A L L : 

VALH=3 

55 POKE DLST+12,71 : POKE A D D R L , V A L L : POK 

E ADDRH.VALH 

60 IF PEEK(764)=255 THEN GOTO 60:REM S 

CAN KE 

65 IF PEEK(764)=7 THEN POKE 764.255:G0 
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TO 100: REM RIGHT ARROW ? 

70 IF PEEK ( 764 ) =6 THEN POKE 764 , 255 : GO 

TO 140: REM LEFT ARROW ? 

80 GOTO 50:REM ONLY ARROWS ARE LEGAL R 

ESPONSE 

90 REM SCROLL RIGHT 

100 VALL = PEEK(DLST + 13) + 1 : REM MOVE DISP 

LAY TO LEFT 

110 IF VALL>255 THEN V A L L = : V A L H = V AL H + 

1 

120 GOTO 55 

130 REM SCROLL LEFT 

140 VALL=PEEK(DLST+13)-1 : REM MOVE DISP 

LAY TO RIGHT 

150 IF VALL<0 THEN V A L L = : V A L H = V A L H- 1 

160 IF VALH<0 THEN VALH=0 



170 GOTO 55 



V 



/T. 



10 REM FINE SCROLLING HORIZONTALLY AND 

VERICALLY 
20 DLST = PEEK(560)+256«PEEK(561 ) 
25 DMEM=PEEK(DLIST+4)+PEEK(DLST+5)*256 
30 SKIPH I N T ( ( DMEMi 28 0) 7 2 5 6) : SKI PL DME 
M+280-SKIPH*256 
35 VALL = 0: VALH = 2 

40 POKE DLST+12 , 1 19 : POKE D L ST+ 1 3 , V AL L : 
POKE DLST+14.VALH 

45 POKE DLST+15 , 66 : POKE D L ST+ 1 6 , S KI P L : 
POKE DLST + 17, SKIPH 

50 IF P E E K { 7 6 4 ) 255 THEN GOTO 50:REM S 
CAN KEYBOARD 

55 IF PEEK(764)=14 THEN POKE 7 64 , 2 5 5 : G 
OTO 200: REM UP ARROW ? 

60 IF PEEK(764) = 15 THEN POKE 764 , 255 : G 
OTO 250: REM DOWN ARROW ? 
65 IF P E E K ( 7 6 4 ) 6 THEN GOTO 300:REM LE 
\ FT ARROW ? , 
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70 IF P E EK ( 764 ) 7 THEN GOTO 3 5 : R E M HI 

6HT ARROW ? 

75 GOTO 50:REM IGNORE OTHER RESPONSES 

200 Y=Y+1:IF Y<16 THEN GOTO 500 

210 Y = 

215 VALL=VALL+40 

220 IF VALL>240 THEN V A L L : V A L H V A L H 

1 

230 GOTO 450 

250 Y=Y-1 

255 IF Y> 1 THEN GOTO 500 

260 Y=15 

265 VALL=VALL-40 

280 GOTO 445 

300 X=X-1:IF X>-1 THEN GOTO 505 

305 X 15 

310 VALL=PEEK(DLST+13)+2 

325 GOTO 445 

350 X-X+1:IF X<16 THEN GOTO 505 

355 X 

360 VALL=PEEK(DLST+13)-2 

440 IF VALL<0 THEN V A L L = : V ALH = V AL H- 1 

445 IF VALH<0 THEN VALH 

450 POKE OLST + 12. 119: POKE DLST + 1 3 , VAL L 

: POKE DLST+14.VALH 

500 POKE 54277, Y: REM VERTICAL SCROLL R 

EGISTER 

505 POKE 54276. X:REM HORIZONTAL SCROLL 

REGISTER 
510 GOTO 50 
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ANTIC Disassembler and 
Raster Scan Graphics 



Recall that the display list is the set of instructions used to control an 
LSI chip called ANTIC. ANTIC, a dumb microprocessor, functions 
as a graphics controller. Its principal duties are to specify the location 
in memory to be displayed, the mode of display (12 Graphics Modes with dif- 
fering resolutions to choose from), horizontal/vertical scroll enable and 
display list instuction interrupt enable. 

Included here is an ANTIC disassembler. This program requires you to 
enter a BASIC Graphics Mode numbered 0-11, and will then locate the 
associated display list and decode the instructions. Note that this program 
prints the ANTIC display modes numbered 2 - 15. Use the program and the 
ANTIC/BASIC correspondences will become apparent. (See Listing 1.) Also 
described are basic raster scan graphics (ATARI style), and then a quick lesson 
in the use of display list interrupts. 

The normal NTSC raster television is made up of 625 interlaced scan 
lines. These scan lines are the horizontal lines appearing in the picture tube 
phosphor when energized by the electron beam as it sweeps left to right, top to 
bottom, across your screen. Interlacing occurs in normal television to 
eliminate flicker. It simply means that all even scan line rows are "painted" in 
one frame, and all odd lines in the next. The frame refresh rate is 60 Hz. 

Each ATARI frame image contains 262 scan lines with no interlacing. 
Every frame is the duplicate of the prior one unless there is program interven- 
tion. The image is repainted 60 times per second, and the electron beam is 
turned off at the end of every scan line. At that time it is returned to the left 
edge of the screen to start the next line trace. This is called horizontal blank 
time. 

The beam is also turned off after every frame so that it may return to the 

"ANTIC Dissamnfafer," by James Capanll, is reprinted uith jxmihision from MICRO Magazine, Issue No. 43, P.O. 
Box 6502, Amherst, NH 03031. 
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top left corner of the screen. This is called vertical blank time. These two time 
periods are very important to the would-be animator. It is crucial to under- 
stand how much time is available and how to enter code so that it will be ex- 
ecuted at the appropriate moment. 

The 6502 microchip in the ATARI cycles at 1.79 megahertz, almost twice 
as fast as the normal 6502. This cycle rate was chosen so that two color-clock 
widths on a scan line equal one machine cycle. There are 228 color-clocks on 
every scan line, and the maximum displayable width of any scan line is 176 
color-clocks, called "wide playfield" in the ATARI literature. The maximum 
resolution is Vi color-clock, and therefore ATARI can display up to 352 picture 
elements (pixels) horizontally. The maximum vertical resolution, in scan line 
units is 240. Effectively, ATARI has a high-resolution mode of 352 X 240. 

It's important to realize that there are physical limitations to this size dis- 
play. Depending on your televisions 's adjustment, some of the displayed image 
may appear on the curved edge of the picture tube. This overlap is called 
overscan. While overscan is not important in normal television viewing, it is 
crucial if what your word processor is printing you can't see. 

Atari, in its Operating System (OS), used a more conservative screen size 
of 320 (160 clocks) horizontally by 192 scan lines vertically. This width screen 
is called "normal playfield" in the documentation. In this way Atari defeated 
normal overscan and assured us of seeing an entire image. There is a narrow 
playfield width as well, 256 pixels (128 clocks wide). These dimensions and 
timing are important since what is not used at display time is left over and 
available at interrupt time. (See Table 1 for timing.) 

It is relatively simple to change between screen widths. Location $22F 
controls playfield width. Called SDMCTL in the documentation, it is ini- 
tialized to 34. Writing a 35 will change the screen dimension to wide, and writ- 
ing 33 will reduce the screen to narrow. SDMCTL is the OS shadow for a 
hardware register in the ANTIC chip at $D400, called DMACTL. 

Since many of these hardware locations are write only, the OS keeps 
copies, called shadows, in RAM. Shadow registers update the associated hard- 
ware at vertical-blank-interrupt time. Remember to use the shadows to effect a 
permanent change to the entire frame. The exception occurs when using a 
display list interrupt. These interrupts can occur, under programmer control, 
on any scan line of every frame. To effect an immediate change at scan line in- 
terrupt, you must write directly to the hardware register. 

To use the display list interrupt (DLI), a number of things must be accom- 
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plished. First, write the DLI service routine. The important thing to 
remember here is to save and restore any registers needed by the routine. 
Then find a free place in memory for this routine. (As you know, ATARI has 
reserved Page Six, decimal 1536-1791 , just for users.) Next, update the vector at 
$200 and $201 to point to start of the routine. Now change the appropriate 
display list instruction to cause an interrupt (accomplished by turning on bit 7 
of the instruction). Finally, enable DLIs by setting bit 7 of hardware register 
$D40E, called NMIEN (Non-Maskable Interrupt Enable). See Listing 2 for a 
simple example. 

Also remember to set the interrupt in the mode line prior to the location 
where you would have the changes occur. Then write to a location call 
WSYNC $D40A. This will cause any changes to be delayed to the start of the 
next scan line and, therefore, allow a smoothly synchronized transition. 

DLIs can be used for everything from putting many colors on the screen, 
to changing among a number of character sets, to moving Player /Missiles 
around. To get the most from your ATARI, experiment with this concept. 

by James Capparell 

Table I: Timing 

1.79 MHZ machine cycle 

262 scan lines per frame 

228 color clocks per scan line 

60 frames per second refresh rate 

1.79/60 = 29868 machine cycles per frame 
29868/262 = 114 machine cycles per scan line 
228/114 = 2 color clocks per machine cycle 

Vertical Blank Time 

262 scan lnes - 192 displayed scan line = 70 

70 x 114 cycles/line = 7980 cycles available* 

Horizontal Blank Time 

Wide Playfield 

228 clocks - 192 clocks = 36 clocks 

36/2 = 18 machine cycles 

Normal Playfield 

228 clocks - 160 machine cycles = 68 clocks 

68/2 = 34 machine cycles 

Narrow Playfield 

228 clocks - 128 clocks = 100 clocks 

100/2 = 50 machine cycles 

♦All graphics are cycle-stealing direct Memory Access (DMA). Depending 

on graphics mode and memory refresh, this value will be less. 
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REM *** PROG 1 *** 
20 REM MEMORY AND DISPLAY LIST VARIES 
WITH GRAPHICS MODE 

30 REM DUMP AND DISASSEMBLE DISPLAY LI 
ST 

40 REM 

100 ? " INPUT GRAPHICS MODE ':: INPUT M 
ODE 

110 LST-PEEK(560)+PEEK(561 )*256:REM FI 
ND START OF DISPLAY LIST 
120 MEMRY-PEEK(LST+4)+PEEK(LST+5)*256: 
REM FIND START OF DISPLAY MEM. 
130 RAMTOP-PEEK ( 106) * 2 5 6 : REM NUMBER OF 

PAGES IN MEM DEFINED AT POWER ON 
140 REM LIST 

150 LPRINT " OS GRAPHICS MODE ";MODE 
160 LPRINT " RAM AVAILABLE AT POWER ON 

" ;RAMTOP 
170 LPRINT " START OF DISPLAY LIST ";L 
ST 

180 LPRINT " START OF DISPLAY MEMORY " 
;MEMRY 

190 REM DUMP DISPLAY LIST WITH DISASSE 
MBLY OF INSTRUCTIONS 

195 LMS-64:INT-128:HSCR-16:VSCRL-32:JV 
B-65: JMP-1 

200 FOR I-LST TO MEMRY-1 
2 05 LPRINT Is" " : PEEK ( I ) ; 
210 INST-PEEK(I) :REM DISPLAY LIST VALU 
E 

215 IF INST>-128 THEN GOSUB 1 1 00 : G OTO 
400 

220 GOSUB 1140 
400 NEXT I 
410 STOP 

1100 INST-INST-INT:REM GET RID OF INTE 
RRUPT BIT 

1105 LPRINT " INSTRUCTION INTERRUPT EN 
ABLE " 

1140 GOSUB 2000 : REM FIND JUMPS AND BLA 
NKS 

1150 IF INST-0 THEN RETURN 
1160 GOSUB 1 4 00 : R EM GO FIND LMS 
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1170 GOSUB 1 500 : REM GO FIND VSCROL 
1180 GOSUB 1 6 00 : R EM GO FIND HORIZONTAL 

SCROLL 
1190 GOSUB 1 7 00 : REM TRANSLATE ANTIC MO 
DE TO OS GRAPHICS MODE 
1200 RETURN 

1400 IF INST<66 THEN RETURN :REM NO LM 
S 

1405 LPRINT " LOAD MEM SCAN FROM " .PEE 
K( 1 + 1 ) + PEEK( 1 + 2) * 256 

1410 INST-INST-LMS: REM GET RID OF LMS 
BIT 

1420 1 = 1 + 2 : R EM INCREMENT LOOP AROUND A 
DDRESS BYTES 
1430 RETURN 

1500 IF INST<34 THEN RETURN :REM NO VS 
CROL ENABLE 

1510 INST-INST-VSCRL: REM GET RID OF VS 
CROLLL BIT 

1520 LPRINT "VERTICAL SCROLL ENABLED" 
1530 RETURN 

1600 IF INST<18 THEN RETURN :REM NO HS 
CROLL ENABLE 

1610 INST-INST-HSCRL : REM GET RID OF HO 
RIZONTAL SCROLL BIT 

1620 LPRINT " HORIZONTAL SCROLL ENABL 
ED " 

1630 RETURN 

1700 LPRINT " ANTIC DISPLAY MODE ";INS 
T 

1750 RETURN 

2000 IF INST-0 OR INST-16 OR INST-32 
R INST-48 OR INST-64 OR INST-80 OR INS 
T = 9 6 OR INST-112 THEN GOSUB 2100 
2010 IF INST-1 THEN GOSUB 2200 
2020 IF INST-65 THEN GOSUB 2300 
2030 RETURN 
2100 LPRINT " BLANK " ; I NT ( I N S T/ 1 6 ) + 1 ; " 

LINES " 
2110 INST-0: RETURN 
2120 REM 

2200 LPRINT " JUMP INSTRUCTION TO ";PE 
EK(I+1 )+-PEEK(I+2)*256 
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2210 I-I+2 : REM INCREMENT AROUND ADDRES 

S BYTES 

2215 INST-INST-JMP:RETURN 

o o o REM 

2300 LPRINT " JUMP & WAIT FOR VERTICAL 

BLANK TO " ; PEEK(I + 1 )+PEEK(I + 2)*25 6 
2310 1=1+2 : REM INCREMENT AROUND ADDRES 
S BYTES 
2315 INST-INST-JVB:RETURN 



TYPO TABLE 



Variable checksum 
Line num range 
10 



V. 



180 
1140 
1500 
2020 



170 
1 105 
1430 
2010 
2315 



351876 
Code 

01 
PT 
SU 
MI 
IP 



Length 
468 
372 
397 
393 
376 



10 REM *** PROGRAM 2 *** 

20 REM THIS WILL CREATE A DISPLAY LIST 

WITH DLI ENABLED 
30 REM THE SCREEN WIDTH IS NARROWED AT 

DLI TIME AS WELL 
40 REM 

45 GRAPHICS 0:SETCOLOR 4,4.9:REM SET B 
ORDER COLOR 

50 DLST-PEEK(560)+PEEK(561 ) * 2 56 : REM FI 
ND START OF DISPLAY LIST 
60 POKE DLST+14,PEEK( DLST+14)+128 : REM 
TURN ON INTERRUPT BIT 7 
70 FOR L-0 TO 29:REM POKE DLI SERVICE 
ROUTINE INTO PAGE 6 

80 READ INSTRCT:POKE 1 536+L , INSTRCT 
90 NEXT L 

100 DATA 72,138,72,169,40.162,48,141,1 
0,212,141,23,208 
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1 10 D 
62,14 
120 P 

DLI 
130 
140 
150 
152 
154 
156 
158 
160 
162 
SYNCH 
164 R 
166 R 
168 R 
170 R 
WIDTH 
172 R 
174 
1 76 
178 
180 
182 



ATA 142,24, 208, 169,33, 141 , 0,212, 1 

0, 142 ,26,208, 104, 170, 104,64 

OKE 5 1 2 , : P K E 5 1 3 , 6 : R EM POINT TO 

INTERRUPT SERVICE ROUTINE 

OKE 54286, 1 92 : REM ENA8LE DMI 

1ST 

DLI SERVICE ROUTINE *** 
SAVE REGISTERS 



EM 
EM 
EM 
EM 
EM 
EM 
EM 



PHA 
TXA 
PHA 
LDA 
LDX 
STA 



#$28 CHARACTER LUMINENCE 
#$30 RACKGROUND COLOR 
$D40A WAIT FOR HORIZONTAL 



EM STA $0017 PLAYFIELD 1 

EM STX $0018 PLAYFIELD 2 

EM LDA #21 NARROW PLAYFIELD 

EM STA $0400 DMACTL ENABLE NAROW 



EM 
EM 
EM 
EM 
EM 
EM 



LDX 
STX 
PLA 
TAX 
PLA 
RTI 



#$8C BORDER COLOR 
$ D 1 A COLBK 
RESTORE REGISTERS 



RETURN FROM INTERRUPT 



TYPO TABLE 



Variable checksum 
Line num range 



10 
12 
161 



-110 

- 166 

- 182 



99022 

Code 

TN 

OH 

LQ 



Length 
531 
357 
198 
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Interrupts 



An important feature to understand is the vertical blank (Vblank) in- 
terrupt. I will give you a working definition of what an interrupt is, 
then discuss how Vblank fits into the overall interrupt structure, 
what is accomplished in this time period, and how programmers may access 
this interrupt for their own use. I will also provide a simple program to illus- 
trate the use of Vblank vectors and how to insert code at VVBLKD. 

Recall from my discussion of raster scan graphics, that the term vertical 
blank is given to that time period when the electron beam is turned off and 
returned to the upper-left corner of the video screen, ready to start tracing a 
new frame. The number of machine cycles available at Vblank is some frac- 
tion of 29868 machine cycles that are needed to trace one entire television 
frame. In the normal Graphics Mode O (text screen), approximately 7980 ma- 
chine cycles are left over at Vblank to be shared by the Operating System 
Vblank interrupt service routine (ISR) and any programmer supplied code. 
The term interrupt applies to any signal, originating from hardware or soft- 
ware, which serves to suspend normal mainline program flow. 

When an interrupting event occurs, the program counter (PC) and 
processor status registers are automatically saved on the system stack. The 
processor then executes special code referred to as an interrupt service routine 
(ISR). The address of the ISR is found in a memory location reserved for this 
purpose, called an interrupt vector. When the ISR is finished, the values of the 
PC and status registers are retrieved from the stack and processing of the sus- 
pended program is resumed as if nothing had intervened. This all happens at 
machine speed — in hundreds of microseconds. 

The vertical blank interrupt is an essential part of the ATARI Operating 
System and appears as a non-maskable interrupt (NMI) to the system. The 
NMI is one one of three possible interrupts that the ATARI can process. These 
three — chip reset, NMI, and IRQ — are analyzed further by interrupt service 
software. Whenever an NMI or an IRQ signal occurs, the appropriate service 

"Interrupts," by James Caparell, is reprinted uith permission from MICRO Magazine, Issue No. 43, P.O. Box 6502, 
Amherst, NH 03031. 
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routine is executed. These service routines interrogate a status register to iso- 
late the interrupting source. See Table 1 for a breakdown of vectors and con- 
tents for each type of interrupt. 

It's apparent from Table 1 that all NMI interrupts are vectored through 
location $FFFA to the NMI interrupt service routine starting at address 
$E7B4. Since there are three possible causes of an NMI, the ISR must deter- 
mine the source of the interrupt by interrogating an NMI status register at ad- 
dress $D40F. This location, called NMIST in the documentation, has bit 7 set 
when a DLI occurs, bit 6 set when [SYSTEM RESET] has been pressed. If 
neither a DLI nor a [SYSTEM RESET] caused the NMI, then a Vblank inter- 
rupt is assumed by the ISR and the processor jumps to the address contained 
in the vector at $0222. There are actually two vectors used by Vblank through 
which a programmer may introduce additional or replacement code. One vec- 
tor, referred to as vertical blank immediate vector VVBLKI, is at address 
$0222. This vector normally contains the address $E7D1, the start of the 



Ta 
INTERRUPT VECTOR 


ble 


1. 
ISR LOCATION 




CHIP RESET FFFC 




E477 






NMI 


FFFA 




E784 








Display list Jump through 


0200 






Vertical Blank 






0222 and 0224 






S /Reset key 






E474 




IRQ 


FFFE 




E6F3 








Serial bus output ready jump throu 


gh 






020C 




Serial bus output complete 








020A 




Serial bus input ready 








020E 




*Serial bus proceed line 








0202 




*Serial bus interrupt line 








0204 




*Pokey timer 1 








0210 




*Pokey timer 2 








0212 




*Pokey timer 4(Bug in O.S. timer 4) 








0214 




Keyboard key scan 








0208 




Break key 








???? 




*6502 break instruction 








0206 



* These vectors are unused by the O.S. and are initialized to point to an RTI instruction. 
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system Stage 1 Vblank ISR. Should it be necessary to either replace system 
functions or simply perform operations prior to the system code, then you 
would use this vector. The other vector location, called vertical blank deferred 
VVBLKD, is at address $0224. This vector normally contains the address 
$E93E, which is the start of code for the system return from interrupt. The 
contents of $0224 would be changed to point to new code when your opera- 
tion was needed after system housekeeeping was accomplished. 

The Vblank process is actually divided into two stages. Whenever a 
Vblank NMI occurs, the following events always happen: 

1 . Processor registers A, X, and Y are pushed on stack. 

2. Interrupt request is cleared by writing zero to 
$D40F. 

3. Jump through VVBLKI normally pointing to 
Stage 1 Vblank. 

When Stage 1 processing is executed, it increments the three-byte counter 
called RTCLOK at addresses $12, $13, and $14. Location at $12 is the most 
significant byte. This counter wraps to zero after approximately 77 hours and 
then continues counting. The attract mode is also processed at Stage 1 ; that is 
the process which causes the colors on your screen to start shifting if no key 
has been pressed on the keyboard in the previous nine minutes. 

Additionally, system timer one at locations $218 and $219 is decremented 
if it is non-zero. When the counter goes to zero, an indirect JSR is performed 
via a vector at addresses $226 and $227. Note that an indirect JSR is performed 
by copying the address from the vector to the stack and executing an RTS in- 
struction. 

At this point a test is made to determine if a time-critical section of code 
was interrupted. If either the I bit in the processor status register or the critical 
flag at address $42 are set, then the interrupted code is assumed to be time- 
critical. When this occurs, the registers are restored and an RTI instruction is 
executed. 

The critical flag can be set by a Serial I/O in progress. If no time con- 
straints are present, then Stage 2 processing is begun. It is in this section of 
code that IRQ interrupts are enabled, keyboard auto-repeat logic is processed, 
keyboard debounce is performed, and system timers, 2, 3, 4, and 5 are pro- 
cessed. In addition, the color data for playfield and Player /Missiles are up- 
dated. This color data and other RAM locations, called shadow registers, are 
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copied into their associated hardware locations. Stage 2 also reads the game 
controller data from jacks 1, 2, 3, and 4 into RAM memory. 

To insert code either at VVBLKI or VVBLKD, the address where the 
new code resides must be placed into the appropriate vector. A system routine 
insures that both bytes of the vector will be updated while Vblank is enabled. 
A vertical blank can be processed during a call to this routine. The routine is 
called SETVBV in the documentation and the calling sequence is: 

Register A (update indicator) 

= 1-5 then update timers 1-5 

= 6 for immediate Vblank vector VVBLKI 

= 7 for deferred Vblank vector VVBLKD 
Register X most significant byte of vector address (hi-byte) 
Register Y = least-significant byte of vector address (lo-byte) 
JSR SETVBV Jump to subroutine 

The A, X, and Y registers may be altered. 

The display list interrupt will always be enabled on return. 

A knowledge of processing interrupts and inserting code at 
interrupt vectors is essential to get the most from the ATARI. 
With this example you should have enough information to ex- 
periment with the Vblank vectors. Interrupt-driven sound con- 
trol, page flipping, animation techniques, greater color control, 

and many other procedures are possible. 

James Capparell 



; ** PROGRAM EXAMPLE 1 ** 

2 .PROGRAM SETS UP A VVBLKD ISR 

3 

40 ; SET UP NEW VECTOR WITH A BASIC US 

R CALL A=USR( 1536) 

50 ; NEED TO DO THIS WHENEVER SYSTEM I 

S RESET 

60 *- $600 

1536 
70 PLA 
80 LDA #7 
90 LDX #06 



PUT IN PAGE 6 DECIMAL 

NULL VALUE FROM BASIC 
INDICATOR FOR VVBLKD 
HIGH BYTE FOR VECTOR 



227 



SYSTEMS GUIDE 



/T 



ADDR 

01M LDY #$40 LOW BYTE FOR VECTOR A 
DDR 

0110 JSR SE45C SET UP DEFER 

0120 RTS RETURN TO BASIC 

0130 * * ** ** ** 

0140 ; ROUTINE AT DECIMAL 1600 IS DESI 

GNED TO WASTE TIME. 

01S0 ; PUT A NUMBER FROM 1 - 5 IN DECI 
MAL 1568. 

0160 ; USE POKE 1568, N 

0170 ; THIS IS THE ISR WHICH SIMPLY WA 

STES TIME. 

0180 •- $640 

0190 LDX INIT COUNTERS 

0200 LDY 

0210 LOOP1 INX INCR COUNT 

0220 CPX $620 DELAY VALUE 

0230 BE Q L00P2 

0240 CLC FORCE BRANCH 

0250 BCC LOOP1 

0260 L00P2 INY 

0270 CPY $620 DELAY VALUE 

0280 BEQ EXIT DONE ? 

0290 CLC NO-FORCE BRANCH 

0300 BCC LOOP1 

0310 EXIT JMP $E93E TAKE NORMAL VBLANK 
EXIT 



V. 
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Diskettes and cassettes with computer data on them are easily damaged, especially 
diskettes. Never touch the surface of the magnetic medium with your fingers. Oil from 
your skin will interfere with the readability of data underneath. 

Protect tapes and disks from magnetic sources such as televisions, telephones and 
magnetized tools. Prolonged exposure to sunlight and heat can be damaging too, so 
store media safely away when not in use. 

Dust and ash from cigarettes can accumulate on exposed disks, so always keep 
disks in their envelopes when not in use. Vertical storage in protective boxes helps. 
Liquid spilled on disks or tapes is almost always fatal. It is best not to eat or drink in 
your computing area. 

Disks must be perfectly flat and free to move in their protective sheaths. Never 
bend or fold a diskette, nor write on it with a pen or pencil that requires pressure. Do 
not use paperclips on disks as these may crimp the sheath. Accidental creasing or 
crushing of disks in briefcases is a common tragedy. 



Atari Support 



Atari is the only microcomputer company with an extensive program of help for the 
owners of its products. There are more the 1700 authorized service centers in the 
United States, plus others abroad, where you can seek help. Just look in the yellow 
pages under "Computers - Service and Repair." 

Also, Atari maintains a staff of trained Agents and Product Specialists available 
at toll-free phone lines to answer questions from customers. These numbers are: 
800-538-8543 (continental U.S., except California) and 800-672-1404 (California 
only.) 

Users groups, that is, local or regional clubs of Atari owners, are located in may 
populated areas and are especially helpful to beginners. Atari has an office from which 
a list of these groups can be obtained. Call 408-743-4196 for user group information 
only, or write User Group Support, Atari, Inc., 1399 Moffet Park Drive, Sunnyvale, 
CA 94086. 
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Move-It 



Move-It provides the ATARI programmer with the ability to move 
one byte of data into a range of memory locations. This assembly 
language routine is position independent. It is loaded into a string 
from data statements 2 50 and 260. The routine is useful for clearing sections of 
screen memory, Player/Missile memory, erasing a player, and clearing 
memory used in page flipping. 

The parameters which control this routine are passed in a USR state- 
ment. The start location and byte total to be moved are passed. There are no 
limitations on the total bytes which can be moved. 

Interesting sounds are also generated by the BASIC routine. The 
soundless version moves bytes at the rate of almost a quarter of a million per 
second (256 x 960). 

by Jerry White 



10 This is a position independent su 

b r o u t i n e 

20 found in DATA statements line num 

bered 250 and 260 

30 ; Calling Sequence from BASIC is: 

40 ; A = USR ( ADR ( $STR) ,S t a r t Addr.Coun 

t ) 



50 ; 

60 

70 

II II t 

80 

est a d d r 
90 

0100 
a d d r 

01 10 
0120 



* = $600 ; c a n go anywhere 
PLA ; ignore argument c 



PLA 



STA 
PLA 



; save lo-byte of d 



STA $CC 

PLA : save hi-byte of dest 



$CB 



; save total to be 
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/m o v e d 
0130 

0140 PLA 
0150 
0160 

to move 
0170 LDY #0 
0180 LDA #0 

to be moved 
0190 MOV STA (SCB) . Y 
0200 
x 

0210 

h a r a c t e r 
0220 INC $CC 

I 0-b y t e 
0230 DEX 
aunt to move 
0240 BMI EXIT 

0250 BNE MOV 
h a r a c t e r 



A 



STA HE ;* 

; s a v e total to be moved 
STA SCO ; * 
LDX $CE : count of bytes 



i n i t index 
init character 



DEY 

BNE MOV 



0260 

n t to move 

0270 

haracter 

0280 EXIT 

est a d d r 

0290 

0300 

0310 

C 

0320 



LDY $CD 
BNE MOV 
DEC $CC 



; move data 
decrement inde 

go move next c 

incr dest addr 

deer lo-byte c 

go move next c 
hi-byte of cou 
go move next c 
deer lo-byte d 



LDY #0 

STA ($CB),Y 

RTS ; return to BASI 

. END 



5 GOTO 35 : REM 



MOVEIT UTILITY/DEMO BY J 



ERRY WHITE 3/31/82 ANTIC MAGAZINE| 
THATS INCREDIBLE SUBROUTINE 



15 REM 

20 FOR M-0 T 2 5 5 : Z $(19,19 ) - C H R $ ( M ) : Z ■ 

USR (ADR (Z$),SM, 960): NEXT M: RETURN 
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30 REM 



SM SCREEN MEMORY C 



"\ 



35 GRAPHICS : POKE 82,0: DIM Z$(42) :P0K 
E 752,1: 8- PEEK(560)+PEEK(581)*25 6+4:8 
M-PEEK(S)+ PEEK(S+1)«256:C- 53279 
45 REM 



Z$ ASSEMBLER ROUTINE STRING ( PO 
ONI 9 "^CHARACTER TO MOVE ) _ 



Z USRCADR ( Z$ ). START ADR. HOW MAN 



50 REM 

ED 

60 FOR X-1 TO 42:READ I T : Z $ ( X , X ) -C H R $ ( 
IT ) : NEXT X : POKE 82,0:? "B";:POKE 83,39 
: SOUND 0,0,0,0 

65 Z$( 19 , 1 9 )-CHR$ ( 1 28) : Z-US R ( ADR ( Z$) . S 
M. 960 ) : POKE 7 1 , 1 1 3 : P OS I T I N 39,0:? CH 

88(180) ; 

75 ? " This [JJjjTJ demonstrates an as 

sembler ":? " MOVE routine called 

f r om BASIC . 

80 ? " Possible uses would be to m 

ove ":?" blanks or special ch 

aracters to an 

85 ? " area of screen memory, or to 

clear ":?" RAM used (or player 
missiles or 
90 ? " page flipping etc. 



SELECT OPTION NUMBER 



95 ? 

( 1 ) FAST WITH SOUND 
: GOSUB 230 
100 ? " (2) VERY FAST WITH SOUND 
" :GOSUB 230: ? " (3) THAT 
S INCREDIBLE (SILENT) " : GOSUB 230 
110 POKE 764,255 : CLOSE #1 : PEN #1,4,0, 
"K:" :GET #1 ,K:CLOSE #1 



115 REM 



ACCEPT ONLY A 1 



120 IF K<49 OR K>51 THEN FOR ME-15 TO 
STEP -0 . 5 : SOUND , 1 2 , 1 2 , ME : N E XT ME 
GOTO 110 

130 rem >wiii'im*iin,iiMiiiirgrrei 

135 FOR J-1 TO 7 : P K E 710,J*16:FOR X- 
2 TO STEP - 1 : F R ME-14 TO STEP -2 
SOUND 0. X+J , 2, ME : NEXT ME: NEXT J 
145 REM 



EXECUTE SELECTED MOVEIT ROUTIN 



233 



ASSEMBLY LANGUAGE 



150 
155 
160 
170 
175 
,2, 



IF 
IF 
GOS 
REM 
FOR 
ME : N 
REM 



K-51 
K-50 
UB 21 



THEN GOSU 
THEN GOSU 
: GOTO 17 



B 20 : GOTO 175 
B 190 : GOTO 1 75 
5 



A 



185 

Q 

190 FOR 
OKE 537 
0, 255-M 
195 POK 
3768,2: 



DING ... ALL DONE . . . START OVER 



ME-15 TO STEP -0.2:SOUND 0.0 
EXT ME: RUN 



VERY FAST SUBROUTINE WITH SOUN 



1 ,0 
205 
210 
HR$ 
TEP 
215 



POK 
REM 
FOR 
M): 
-1 : 
POK 



M-0 
61,16 
: POKE 
E 537 
Z-USR 
E 537 



TO 255: Z$ 
8 : POKE 53 
53768, 13 
62, M: POKE 
(ADR(ZS) , 
63,0: NEXT 



(19, 19)=CHR$(M) : P 
763, 168 : POKE 5376 
:POKE 712, M 

53762, M/8: POKE 5 
SM.960) : POKE 5376 

M: RETURN 



FAST SUBROUTINE WITH SOUND 



: Z-USR ( 

225 REM 
230 FOR 
POKE C, 

5 , 2 : NEX 
240 REM 

ii nun i 

250 DAT 
04, 133, 
69,0,14 
260 DAT 
244, 164 
203,96 



M-25 
POKE 
POKE 
E 537 
ADR ( Z 



5 TO ST 
53760, M: F 
53761 , V 
68, V-160: 

$) ,SM, 960 



E P - 1 : Z$ ( 1 9 , 1 9 ) = C 
OR V-1 75 TO 160 S 

NEXT V : POKE 71 2, M 

) : NEXT M: RETURN 



BLINK 6 BUZZ SUBROUTING 



JW-0 
8 : NEX 
T JW: 



TO 8 : POK 
T JW: FOR 
RETURN 



E 755,1: POKE C , : 
JW-0 TO 8 : POKE 75 



DATA TO CREATE ZS ASSEMRLER SU 



I 

A 104 

206, 1 
5,203 
A 208 
,205, 



, 1 04 , 133, 
04, 133,20 
, 136 

,251 , 230, 
208,240, 1 



204, 1 04, 133,203, 1 
5,166,206,160,0,1 

204,202,48,6,208, 
98,204,160,0,145, 



TYPO TABLE 



Va r 



i a b I < 

Line 

5 

65 

100 

150 

210 



checksum 

n urn range 

- 60 

- 95 

- 145 

- 205 

- 260 



139086 
Code 
CB 
AQ 
J J 
GJ 
UT 



Length 
588 
537 
522 
516 
534 



V 
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Bubble Sort 



This is a handy Sort Utility intended to be called from BASIC and 
allows you to sort almost anything that can fit in your computer's 
memory. The flexibility of the sort should cover many applications. 
Records may be any size up to 256 bytes. The sort fields may be any size up to 
the length of the record. You can sort on as many different fields as you need, 
and each field can be independently sorted in ascending or descending 
sequence. 

The sorting technique is the traditional Bubble Sort which works by look- 
ing through a file of records in memory, and comparing the sort field of each 
record to the one following it. If any two adjacent records are not in sequence, 
the sort will exchange the positions of those two records. The sort continues to 
scan the file until there are no more records to exchange. In this way, records 
with the higher sort fields get pushed towards the end of the file, and records 
with the lower sort fields get pushed towards the beginning of the file. All of 
this takes place in memory so that it appears that the records bubble into 
place. 

The sort only requires 182 bytes and the machine language is relocatable, 
therefore you can load and execute this sort anywhere in memory. Although 
you can put the sort in any program you like, your file size is going to be 
limited by available memory. For large files, it is best to write a small BASIC 
program that contains only this sort, a string large enough to hold your file, 
and whatever BASIC statements it takes to load a file, call the sort and write 
out the new sequenced file. 

Although the sort works very fast, its speed can be improved by about 30 
percent by turning ANTIC off. Just before calling the sort, save the value at 
PEEK(559) then POKE in a zero. All this does is shut down the screen display, 
but in so doing, it makes about 30 percent more CPU cycles available to the 
sort. After the sort, POKE the saved value back into 559 and the screen 
display will turn back on. 

All sort parameters are passed to the sort in the BASIC USR call in the 
following sequence: 1. Address of the string containing the file; 2. Length of 
the records; 3. Number of records to be sorted. The next parameters specify 

235 



ASSEMBLY LANGUAGE 



the fields to be sorted by: 4.1. Position of the first byte of the field; 
4.2. Length of the field; 4.3. '0' for ascending sequence, or '1' for descending 
sequence. Sort fields are specified in Major to Minor order. That is, if you 
want to sort on state, and zip code within state, then state is the Major order 
and should be the first set of sort field parameters. The only limitation on the 
number of sort fields is the number of parameters that fit in the BASIC state- 
ment calling the sort. 

The program in Listing 2 loads the machine language code for the sort in 
Lines 1 to 9. The rest of the program demonstrates one of many techniques 
that can be used to read an unsequenced file, sort and rewrite a sequenced 
file. Type and run the program and at the prompt, enter the first and last 
names of about nine friends. The first names will be sorted ascending, the 
last names will be sorted descending and then displayed on the screen. 

by Adrian Dery 



REM SORT UTILITY DEMONSTRAT 

ION 

1 DATA 216,104,56,233,3,133,217,104,13 
3, 204, 104. 133. 203, 104, 133, 215, 104, 133, 
214, 104, 133,210, 1 04, 133.209, 162, 

2 DATA 104,104,157,0,1,232.228,217,208 
,246, 56, 165, 209, 233, 2, 133, 209, 165, 210, 
233, 0,133, 210, 48, 108, 165, 209, 133, 211 

3 DATA 165,210,133,212,165,204,133,206 
,133, 208, 165, 203, 133, 205, 24, 101, 214, 13 
3,207,165,208,101,215,133,208,160 

4 DATA 0,185,0,1,190,2,1,134,218,190,1 
,1,200,200,200,132,216,168,136,177.205 
,209, 207, 240, 12, 165, 21 8, 208, 4, 144 

5 DATA 16,176,46,144,44.176,10,200,202 
,208,234,164,216,196,217,208,210,198,2 
11,169,255,197,211,208,6,166,212,240 

6 DATA 11,198,212,165,208,133,206,165, 
207,24,144,172,165,213,240,4,134,213,2 
08,148,96,134,213,160,0,177,205,170 

7 DATA 177,207,145,205,138,145,207,200 
,196,214,208,241,240, 203 

8 DIM SORTS ( 182) : FOR 1 = 1 TO 1 82 

9 READ A : SORTS ( I , I ) = CHRS ( A ) : NEXT I 
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10 
1 1 
1 1 
12 
12 
13 
13 
14 
14 
15 
15 
16 
20 
20 
21 
21 
22 
22 
30 
30 
31 
31 
6 , 
32 
32 
33 
33 
34 
34 



REM 
REM 
DIM 
FILE 
FILE 
GRAP 
? "E 
FOR 
? 1 + 
FILE 
? 1 + 
FILE 
NEXT 
REM 
REM 
GRAP 
FOR 
? FI 
NEXT 
REM 
REM 
ANTI 
X = US 
5.1,1 
POKE 
? : ? 
FOR 
? FI 
NEXT 
END 



INPUT A FILE TO BE SORTED 
F I L E$ { 270) ,NAME$( 15) 
$=" " : F I L E $ ( 270)=FILE$ 
$(2)=FILE$ 
HICS 

NTER THE NAMES OF 9 FRIENDS" 
1 = TO 8 : LE=I*30+1 
1 ;" FIRST NAME " ; : INPUT NAMES 
$( LE , LE > 14) NAMES 
1 :" LAST NAME " ; : INPUT NAMES 
$(LE+15 , LE+29)=NAME$ 
I 

PRINT UNSORTED FILE 
HICS 0:? "UNSORTED NAME LIST" 
1 = TO 8 : L E = I * 3 + 1 
L E $ ( L E , L E + 2 9 ) 
I 

SORT AND PRINT THE FILE 

C PEEK( 559) : POKE 559, 

R ( ADR ( SORTS) . ADR ( FILES) ,30,9,1 

,15,0) 

559 , ANTIC 

"SORTED NAME LIST" 
1=0 TO 8 : LE-I *3B+1 
L E $ ( L E , L E + 2 9 ) 

I 



TYPO TABLE 



Variable checksum = 17 0377 

Line num range Code Length 

5 OH 596 

6 135 GC 4 63 

140 - 300 UQ 331 

305 - 345 IC 269 
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UTILITY SORT - CALLED FROM BASIC 
ENTRY PARAMETERS: 



1 . FILE ADDRESS 

2. RECORD LENGTH < 2 5 6 BYTES 

3. NUMBER OF RECORDS TO SORT 

4. ANY NUMBER OF FIELDS TO SOR 

MAJOR TO MINOR ORDER 

4. 1 FIELD POSITION 

4 . 2 FIELD LENGTH 

4.3 ASCENDING 1=DESCEND 



0100 

0105 

0110 

0115 

0120 

0125 

0130 

0135 

T IN 

0140 

0145 

0150 

0155 

ING 

0160 ; 

0165 

0170 FILE 

DDRESS 

0175 PNTR1 

TWO 

0180 PNTR2 

ORDS. 

0185 RECNBR 

CORDS 

0190 SCOUNT 

ER 

0195 BUBLE 

NCE 

0200 RECSIZ 

RD 

0205 FLDNDX 

OUNTER 

0210 FLDCNT 

RT FIELOS 

0215 SORTAD 

SCENDING 

0220 STACK 

ELDS HERE 

0225 : 

0230 DETERMINE HOW MANY FIELDS TO SOR 

T 

0235 CLD 

0240 PLA ;ALL BUT TH 



ORG $0600 
203 

205 

207 

209 

211 

213 

214 

216 

217 

218 

256 



FILE START A 
POINTERS TO 
ADJACENT REC 
NUMBER OF RE 
RECORD COUNT 
OUT OF SEQUE 
SIZE OF RECO 
SORT FIELD C 
NUMBER OF SO 
ASCENDING/DE 
SAVE SORT FI 
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SEC 

SBC #3 
STA FLDCNT 



PICK UP SORT PARAMETERS 



E FIRST 
0245 
METERS 
0250 

TO 
0255 
0260 ; 
0265 
0270 
0275 
0280 
0285 
0290 
GTH 
0295 
0300 
0305 
0310 
RECORDS 
0315 
0320 
0325 
0330 ; 

0335 : PICK UP FIELDS TO SORT 
0340 LDX #0 

0345 PICKFIELDS 
0350 
E SORT 
0355 

METERS FOR 

0360 STA STACK, X 
LENGTH 
0365 
ION . 
0370 
0375 
M 

3 8 : 
0385 ; 
0390 
0395 

LEAST 



THREE PARA 
ARE FIELDS 
SORT 



PLA 

STA FILE+1 

PLA 

STA FILE 

PLA 

STA RECSIZ+1 

PLA 

STA RECSIZ 

PLA 

STA RECNBR+1 

PLA 

STA RECNBR 



PLA 
PLA 



INX 

CPX FLDCNT 
BNE PICKFIELDS 



FILE START 
ADDRESS 



RECORD LEN 



NUMBER OF 



GET ALL TH 

FIELD PARA 

POSITION, 

AND DIRECT 

ANY MORE 
GO GET THE 



SET UP NUMBER OF RECORDS TO SORT 
SEC 
LDA RECNBR ;MUST BE AT 



\ 04 



SBC #2 



TWO RECORD 
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At 



o 

0405 

0410 

0415 

0420 

0425 

UT 

0430 

0435 

0440 

0445 SORT 

ER OF 

0450 

SORT 
0455 
0460 
0465 
NTERS 
0470 
RST 
0475 
0480 
ORDS. 
0485 BUMPRECORD 



STA RECN6R 

LDA RECNBR+1 

SBC #0 

STA RECNBR+1 

BMI ENDSORT 



MAIN LINE SORT LOOP 

LDA RECNBR 

STA SCOUNT 

LDA RECNBR+1 

STA SCOUNT 1 

LDA FILE+1 

STA PNTR1+1 

STA PNTH2+1 

LDA FILE 



STA PNTR1 

CLC 

ADC RECSIZ 

STA PNTR2 

LDA PNTR2+1 

ADC RECSIZ+1 

STA PNTR2+1 



V 



0490 

0495 

0500 

0505 

0510 

0515 

0520 

0525 

0530 

0535 

0540 

K INDEX 

0545 NEXTFIELD 

0550 LDA STACK, Y 

TION. 

0555 LDX STACK+2.Y 

TION 

0560 STX SORTAD 

0565 LDX STACK i 1 ,Y 



SORT 

ELSE GET 

RESET NUMB 
RECORDS TO 

SET UP POI 

FOR THE FI 

AND 

SECOND REC 



;PUT PNTR2 

; AHEAD 

;OF 

;PNTR1 

;BY 

ONE 

; RECORD . 



SEQUENCE CHECK RECORDS 

LDY #0 



RESET STAC 

FIELD POSI 

SORT DIREC 

SAVE IT. 
FIELD LENG 
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r, 



H . 

0570 INY 

0575 INY 
0580 INY 
0585 STY 
T . 

0590 TAY 
TION TO Y 
0595 DEY 
IVE TO ZERO 
0600 SEQCHECK 



FLDNDX 



; BUMP 
; STACK 

; INDEX 

; AND SAVE I 

: FIELD POSI 

;MAKE RELAT 



CMP 
BEQ 

LDA 

BNE 

SORT IN 
BCC 
BCS 



0605 

JACENT 

0610 

0615 

LOOKING 

06Z0 

IRECTION 

0625 

ENDING 

0630 

0635 

0640 

0645 

T RECORD 

0650 

ITIONS 

0655 

0660 

0665 

0670 DSNDG BCC 

ITIONS 

0675 BCS 

T RECORD 

0680 : 

0685 SEQNDX INY 

LENGTH OF 

0690 DEX 

IELD AND 

0695 BNE 

NCE CHECKING. 

0700 LDY 

IELDS 



LDA (PNTR1 ) , Y ; COMPARE AD 



( PNTR2 ) , Y : RECORDS 
SEQNDX : KEEP ON 



SORTAD 
DSNDG 



; GET SORT D 
:GO TO DESC 



ASCENDING SEQUENCE 
BUMPINDEX :< BUMP NEX 
SWAP ;> SWAP POS 



SORT IN DESCENDING SEQUENCE 

SWAP ;< SWAP POS 
BUMPINDEX ;> BUMP NEX 

CHECK THE 
THE SORT F 
SEQCHECK ; KEEP SEQUE 
FLDNDX : ANY MORE F 



241 



ASSEMBLY LANGUAGE 



INDEX THROUGH THE SORT FILE 



0705 
0710 

IT 
0715 
0720 
0725 
0730 BUMPINDEX 
0735 

RECORDS 
0740 
FOR 
0745 
E . 

0750 
0755 
0760 
0765 



CPY FLDCNT 
BNE NEXTFIELD 



;TO SORT 
;YES, GO TO 



DEC SCOUNT 
LDA #255 
CMP SCOUNT 



COUNT DOWN 
AND CHECK 
END OF FIL 



BUMP PNTR2 
PNTR1 TO T 
NEXT RECOR 



BNE NOTEOF 

LDX SCOUNT+1 

BEQ CKSWAP 

DEC SCOUNT+1 
0770 NOTEOF LDA PNTR2+1 

AND 
0775 STA PNTR1+1 
HE 

0780 LDA PNTR2 
DS. 

0785 CLC 

0790 BCC BUMPRECORD 
0795 ; 
0800 ;AT END OF FILE SEE IF A SWAP WAS 

MADE 
0805 ; 

0810 CKSWAP LDA BUBLE 
RDS SWAPPED 

0815 BEQ ENDSORT 
D OF SORT, 

0820 STX BUBLE 
NCE CHECK 

0825 BNE SORT 

GAIN. 

08 3 ENDSORT 
0835 RTS 

SIC 
0840 

0845 ;SWAP RECORDS IF OUT OF SEQUENCE 
0850 



IF NO RECO 
THEN IS EN 
ELSE SEQUE 
THE FILE A 

BACK TO BA 
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0855 SWAP STX BUBLE 

OF SEQUENCE 

0860 LOY #0 

0865 SWAPLOP 

0870 

NE 

0875 



THE 

0880 

OF TWO 

0885 

UENCE 

0890 

ECORDS 

0895 

0900 

0905 

NG FOR 

0910 

OF RECORD 
0915 

T RECORD 
0920 



LDA ( PNTR1 ) , Y 

TAX 

LDA ( PNTR2 ) , Y 

STA ( PNTR1 ) , Y 

TXA 

STA ( PNTRZ) ,Y 

INY 

CPY RECSIZ 

BNE SWAPLOP 

BEQ BUMPINDEX 

. END 



STILL OUT 

THIS ROUTI 
EXCHANGES 
POSITIONS 
OUT OF SEQ 
ADJACENT R 

KEEP LOOPI 
THE LENGTH 
GO GET NEX 
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Pilot Your Atari 



PILOT is not just another computer language designed to meet some of 
the needs of new programmers, educators, and children. PILOT grew 
out of work by John Starkweather at the University of California at 
San Francisco back in 1972. He wanted a language that would make it easy to 
write tutorial programs for students, programs capable of recognizing 
responses other than the typical "1, 2, 3" choices prevalent in many current 
teaching programs. With PILOT, it is as easy to ask, "Who was the first presi- 
dent of the United States?" and record and score answers such as "President 
Washington," "I believe it was G. Washington," "George Washington," 
"GEORGE WASHINGTON," "Washington." PILOT needs only three 
statements to accomplish this type of user interaction. 

Dean Brown at Stanford Research Institute proved that teachers could 
understand PILOT, and students loved it. Since PILOT is word-oriented, as 
contrasted to BASIC's number orientation, it naturally fits the "riddle" and 
"tell-a -story" type of program which youngsters like. At the same time, 
Seymour Papert at MIT developed a new way to conceptualize and teach 
geometry and shapes. This development was called "turtle graphics" and 
proved ideal for use on home computers. Atari wisely included a turtle 
graphics command language with the PILOT module. 

The old "Cartesian coordinate" system required commands like this: 
Start at position X =20 and Y = 10. Draw a line to X =40 and Y = 10; draw 
a line to X =40 and Y =30; draw a line to X = 20 and Y =30; finally, draw a 
line to X =20 and Y = 10. 
Can you guess what figure this is? How big is it? Using turtle graphics the same 
picture can be drawn like this: 



Ken Harms is a resident of the San Francisco Bay Area, and is Vice President of Administration for 
the California division of the American Cancer Society. He is especially interested in PILOT and Logo, 
and in computing as a tool to enhance the education of his two daughters. He is one of the earliest and most 
dedicated of Atari PILOT programmers whose articles in ANTIC regularly expand the usefulness of that 
language. 
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Do this 4 times: draw a line 20 spaces long, turn Right 90 degrees. 

The box shape is more apparent and the commands are more readily 
understood. A small collection of 14 and 15 commands represent the core of 
PILOT. All are only one or two characters long and easily remembered— a "J" 
is the "jump to" command. Anyone who is not a good typist will appreciate 
the wisdom of short commands. Short, easy to remember commands and tur- 
tle graphics combined with Atari's wonderful screen editor will make almost 
anyone's introduction to computing more pleasurable and rewarding. Finally, 
PILOT programs become naturally organized around modules. This en- 
courages a well-structured programming style. 

PILOT is available in two packages; one is just the language cartridge and 
users' guide (about $90), the other is a well-documented, comprehensive 
package that I recommend (about $130). This package includes: 

PILOT CARTRIDGE — (love those cartridges; little fingers can't destroy 
them). 

STUDENT PILOT — a cleverly illustrated learner's manual for the new 
programmer. 

PILOT PRIMER — an instruction manual for the experienced program- 
mer. 

DEMONSTRATION TAPES— two cassettes showing language, color, 
graphics, and sound. 

POCKET CHART — presents all commands in an easy-to-use format. 

I like Atari's version of PILOT. There are still a few rough spots: not all 
syntax errors are caught, the manuals do not include indices, several com- 
mands are not explained in the manual, and a few typographical errors re- 
main to confuse you. In spite of these few "start-up" problems, Atari PILOT 
meets its "primary design goals": it is "consistent and easy to learn ... it allows 
reasonable access to the Atari system capabilities, but not at the user's 
expense." 

We intend to help you get the most from PILOT. Watch for programming 
tips, warnings, and more help. by Ken Harms 
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Large Text 



This series of articles will show you how to do what Atari left out of the 
PILOT manuals— fancy tricks such as large letters and changing col- 
ors, useful features like breaking strings into words, and using the 
mysterious commands in the demonstration programs. 

When you run your PILOT program, three sets of instructions work 
together to give you the result you need. The Operating System in the 
400/800 provides the instructions for reading the keyboard, and for writing 
characters to the TV screen and I/O devices, such as disk drives and printers. 
Additionally, the PILOT cartridge contains the translation system which ac- 
tually interprets your PILOT program for the Atari hardware. These two 
systems working together allow the ATARI to perform the instructions you 
provide with the third type of instructions, the PILOT application program. 

PILOT programs operate on data stored in the computer's memory or 
RAM (random access memory). PILOT stores each variable, constant, or in- 
struction as a value in a unique location or address. These are like P.O. boxes. 
You can put messages into them and read data from them. Some addresses are 
used by the Operating System to hold information such as the color used on 
the screen and what size text characters to print, large or small. PILOT lets 
you change the contents of these addresses to give greater graphics control. 

The Operating System supports fourteen different ways to display data on 
the screen. Those of you familiar with BASIC know eight of these modes. 
PILOT normally uses only two modes, Graphics 0, and Graphics 7; the first is 
a text mode, the second is a graphics mode. But you can turn on at least two of 
the extra modes to display large letters as eyecatching program titles. 

To enable large text, we need to change values in two special addresses, 
1373 and 1374, by using a special form of the Compute command: 

C:@B1373 = 16 

C:@B1374 = 1 

This command might read as: "Compute the 'byte' at address 1373 equals 
16". "Byte," in this context, means a value in memory. The first command puts 
a 16 in address 1373 to tell the ATARI that you want a graphic screen with 
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regular letters at the bottom. The value 1 at address 1374 tells the ATARI that 
you want it to print medium-large letters. These Mode 1 letters are so large 
that only 20 fit on a line. Listing 1, lines 20 and 30, demonstrates these com- 
mands. 

The next command you'll need is WRITE. It tells the ATARI to write data 
to a specific "device." These devices are identified by letters such as "D" for 
disk, "P" for printer, "C" for cassette and "S" for screen. Line 40 tells the 
ATARI to write anything you want. So, with those three simple commands, 
you have a dramatic opening for a program. 

Change the contents of location 1374 to determine the size and number of 
characters per line. 

1374=0 regular letters, 40 per line 

1374 = 1 20 rows of medium letters, 
20 characters per line 

1374 = 2 10 rows of large letters 
20 characters per line 

The *TEST 2 module demonstrates Mode 2 large letters. In both modes, 
try using upper, lower and inverse characters. You'll find that each prints in a 
different color for interesting effects. 

Address 1373 is the "sub-mode" address. 

1373 =0 a full screen (no "text window") 

1373 =16 split screen (text "text window") 

1373Z =32 full screen opens without erasing prior data 

Listing 2 uses the 32 sub-mode to erase the text window. If you're in sub- 
mode or 32, any text (even the READY at the end of a program) clears the 
screen; use a PA: command to keep the screen up. To change any mode or sub- 
mode, you must CLOSE:S between modes and issue both 1373 and 1374 com- 
mands in the next mode. After entering a new mode, always issue a WRITE 
command before a type command (T:). 

Next time, we'll look at changing colors and breaking strings into letters 
or words. 



by Ken W. Harms 



10 *TEST1 [MEDIUM LETTERS MODE 1 

20 C : @B 1 3 7 3-1 6 [SPLIT SCREEN 

30 C : @B 13 7 4-1 [SET MODE 1 

40 WRITE:S, MODE 1 LETTERS 

50 PA: 240 [PAUSE TO WATCH SCREEN 
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60 C L OS E : S [REQUIRED TO CHANGE MODES 

70 J : * TEST2 

80 *TEST2 [LARGE LETTERS MODE 2 

90 C : @B 13 7 3-16 [SPLIT SCREEN 

1 00 C : @B 1 3 7 4-2 [SET MODE 2 

1 1 WRITE : S . THIS IS MODE 2 

120 T: "Q'YPED TEXT APPEARS 8EL0W SCRE 

EN 

130 PA : 240 

140 CLOSE : S 

150 J : * TE ST 

160 * TEST 

170 C : @B 1 3 7 3-0 

180 C : @B 1 3 7 4-0 

190 WRITE:S. THIS IS WRITE IN MODE 

200 PA: 100 
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Colors For Your Pilot 



This time I will show you how to use all 128 colors of the ATARI and 
how you can rapidly change these colors in your displays. To display 
data on the TV screen, PILOT first gets data (character or graphics in- 
formation) from your program and then looks at special memory locations to 
determine the color to use. You can use a maximum of four colors at one time 
on your screen. Each color is selected by the PEN: (color) instruction. This 
instruction calls these locations by the names "Red," "Blue," "Yellow," and 
"Erase." Once PILOT knows what name (location) a line belongs to, it uses the 
color value found there for all lines drawn by that PEN:(color) instruction. 
When PILOT looks at the "Blue" location it will find a color value there. 
This value will cause the ATARI to draw blue lines when you first turn it on. 
Fortunately, you can put any color value into these locations. So, even though 
PILOT calls these locations by color names (for convenience) any color may 
be found there. You can change these colors using a special form of the Com- 
pute command. Turn your machine on and type this in direct mode: 

C:@B710=86 

C:@B712=5*16 + 6 

The first instruction might be spoken "Compute byte 710 equals 86." In 
this case, the 710 is the special address PILOT calls its "Blue" location. The 86 
is a color value for a red color. In effect we put "red paint into a can labeled 
blue." 

In the second instruction, the 712 is PILOT's "Erase" register. The "5" is a 
hue (color) number and the "6" is a luminance number (more on them later). 

In the graphics mode, PILOT uses four locations, or registers. Their 
names, addresses and uses are listed in Table 1. 

You change the color of any register (paint can) by placing a different color 
value in any of the addresses. Color values are made up of two numbers, a 
"hue number" and a "luminance" or brightness number. Table 2 gives these 
values and what they usually look like on my TV. 
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TABLE 1 



Name Register 


Value 


Used for 


Address 


Red 


70 


Graphics 


708 


Yellow 1 


26 


Graphics 


709 


Blue 2 


148 


Text Window &. Graphics 


710 


None 3 


148 


Not Used 


711 


Erase 4 





Background & Border 
TABLE 2 


712 


Hue 




Luminance 




=gray 




— lowest possible luminance (black) 


1 =green brown 




2- 




2= yellow /orange 




4- 




3 =orange 




6- 




4=red/orange 




8- 




5=pink 




10- 




6=bluish purple 




12- 




7= purple 




14 — maximum luminance (white) 


8=blue 








9=bright blue 








10=turquoise 








1 1 =greenish blue 








12 =green 








13=yellowish green 






14=orangish green 






15=lighr orange 









The color value needed in each register is calculated as follows: 
Hue number *16 -(-luminance number. 

A color value for the red we used above is 86 or "16*5 +6." Changing a 
register can be done at any time in your program. 

The listing draws two horses in different color registers and then changes 
the colors rapidly to illustrate the power of this technique. 

Let me leave you with an experiment: Use Mode 1 or Mode 2 letters (see 
previous article) and determine which color registers are used for upper-case 
and lowerose letters. 
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You may be interested in a new learning club for PILOT/ 
Logo users. It has a good newsletter, simple programs and an educational 
orientation. It is free to people under 18. Write to: 



Young People's Logo Association 
1208 Hillsdale Drive 
Richardson, Texas 75081 



by Ken Harms 



20 

30 

40 

50 

60 

70 

80 

90 

10 

1 1 

12 

13 

14 

15 

16 

1 7 

18 

19 

20 

21 

22 

231 

241 

251 

26! 

271 

28! 

291 

30! 







CO 

R : 

R : 

. * 

R : 
U : 
U : 
PA 
II : 
PA 
II : 
PA 
U : 
E : 
*H 
GR 
GR 
GR 
GR 
GR 
GR 
GR 
GR 
GR 
GR 
GR 



OUSES 

Draws houses and shifts 

all four color register 

ANTIC Issue 3 

LOR 

CLEAR 

GOTO -20, 10 

HOUSE 

GOTO 20,10 

"HOUSE 

•REGISTERS 

: 240 

♦REGISTER1 

: 240 

♦REGISTER2 

: 240 

•REGISTER4 



OUSE 
PEN YELLOW 
TURNTO0 

TURN135 
TURN 45 ; 



A 



s 



TURN 
TURN 
TURN 
TURN 
TURN 
TURN 
TURN 



90; 
90: 
-90 
-90 
90: 
90: 
45: 



: DRAW 14 
PEN 8LUE 
DRAW 5 
FILL 8 
; DRAW 1 
; PEN RED 
PEN BLUE 
FILL 14 
PEN YELLOW 



DRAW 15 [REG 2 



FILL 
DRAW 



8 [REG 



FILL 14 [REG 

S 
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310 E: 

320 *REGISTER0 

330 C:#A-192 [HUE 12 LUM 

340 *INCREMENT0 

350 C:@B708-#A 

360 T: 708 - #A 

370 PA : 30 

380 C:#A-#A+2 

390 J(#A<202) : * INCR EHENT 

400 E: 

410 *REGISTER1 

420 C:#A-224 [HUE 14 LUM 

430 * I N CR EHENT 1 

440 C:@B709-#A 

450 T: 709 - #A 

460 PA: 30 

470 C:#A-#A+2 

480 J(#A<228) : * I NCR EMENT 1 

490 E : 

500 * REGISTER 2 

510 C:#A-80 [HUE 5 LUM 

520 *INCREMENT2 

530 C:@B710-#A 

540 T : 71 - #A 

550 PA: 30 

560 C:#A-#A+2 

570 J(#A<88) : "INCREMENT2 

580 E : 

590 *REGISTER4 

600 C : #A-1 44 [HUE 9 LUM 

610 * I NC R EMENT4 

620 C:@B712-#A 

630 T : 71 2 - #A 

640 PA : 30 

650 C:#A-#A+2 

660 J(#A<152) : *INCREMENT4 



V 



670 
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The Musical Pilot 



This article will open the door to string parsing, a powerful way to 
analyze PILOT strings. Along the way, we'll read and write on the 
disk (or cassette), do some Boolean algebra, change data types and 
reveal a beautiful PILOT bug. And, oh yes, we'll play four -voice music. 

As always, we'll be way "beyond the book." Since it will be getting pretty 
deep, I'll give page references to Atari's PILOT Primer. 

A string is a combination of letters, numbers, symbols, words, etc., 
"strung together." In PILOT, a "string variable" is made by giving it a name 
(always beginning with "$") in an Axcept or C:ompute instruction (pp. 
69-76). The book tells how to concatenate ("grow") strings. We'll discuss how 
to parse ("cut") strings so you can analyze each part of a string. This could be 
useful for analyzing sentences, riddles, or in this case, for storing data for a 
program's use (PILOT lacks a "Data" statement). 

String parsing relies on the Match String command which produces 
three pre-named variables, $Left, $Match, and $Right (pp. 41-44, 81-82). 
Parsing programs work as follows (refer to the Pilot Player listing): 

1. Place the string into the "accept buffer" (line 1270). 

2. Match on the "separator." In this case, I used the blank as a separator. 
In line 1280, we skip over the initial blank, which the Axcept instruction 
inserts in each string, and M:atch on the second blank. (Note the right 
arrow in the instruction which doesn't print in front of the " "). 

3. Check for the end of string (the JN: in line 1290). 

4. Store the remainder of the string (found in $Right) in a safe place 
(line 1300). 

5. Use $LEFT as the parsed word, letter, etc. (lines 1310-1370). 

6. Jump back to step 1 . 

Although this may seem complicated, it's conceptually as easy as BASIC. 

To play a C,D,E,F chord for a sixteenth, the Pilot Composer produces a 
string looking like this: "13 5 6 16 ! The first four values are the usual notes 
(pp. 106-107) for each of the ATARI's four voices. The "16" is the inverse 
duration of the note (1/16 of a note). The "!" is a "terminator" to tell us that 
we're out of notes. Our problem: parse it and play it. The *Loop2 routine 
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(lines 1250-1390) cuts the string and sets up variables for each voice and for 
the PAUSE command. After each Match String, the variables look this way 
(the underlines represent blanks): 

$PLAYVALUES $LEFT 

PASS BEFORE MATCH $LEFT SMATCH $RIGHT USED FOR 

1 3 5 6 1C NULL NULL NULL 

1 _1_3_5_6__16 [_ 3 5 6 1 6 #A 

2 3 5 6 16 _J_ 5 6 16 #B 

3 5 6 16 _5_ 6 16 #C 

4 6 1 6 _6_ _16_ #D 

5 _16_ _16_ #L 

6 _16_ NO MATCH 

Simply put, each value marches to the left into the $LEFT bucket and 
then gets used. Notice that the "no match" in pass six did not change any of 
the special string variables. 

The PILOT Composer parses strings in a similar fashion but on each let- 
ter. In this case, the match parsing instruction (line 1200) skips two spaces 
(the leading blank and the first letter) and M:atches on the next character to 
put all remaining characters in $MATCH (the comma does that). Once the 
string is split, a simple $LEFT inspection finds the character and then 
restores the balance of the string. The * TRANSLATE module (lines 
1400-1690) performs a similar M:atch to find good notes and durations in 
$GOODNOTES and $GOODDURATION, and then to translate them in- 
to note and duration values. The translation lookup in $NOTEABLE is "fail 
safe" — it first M:atches on the note followed by "/" and then M:atches on 
the subsequent "." This forces the value (a 5, say) into $LEFT This was re- 
quired, since at M:atch for 1 or 8 without the "." would have found the value 
of notes C and G. Of course, I could have designed the string in reverse order 
— that's an improvement for you to make. 

Let's digress to the music before going on with the programming. The 
PILOT Music "System" now has two simple programs. PILOT Composer ac- 
cepts four-note chords composed of the eight basic notes (no sharps or flats), 
followed by a duration (a whole note, half note, etc.). It checks these data, 
catches most errors, and rings a "bell" when it's ready for another chord. It 
won't find short chords, so make sure you enter four notes and a duration, or 
change the ^TRANSLATE module between lines 1670 and 1680. Chords 
are written to the disk or cassette every 10 chords. This is required since the 
maximum length of an accept buffer is 254 characters. 
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The PILOT Player asks for a tempo (how fast to play) and a file of music. 
It then opens that file and plays the notes stored there. 

Back to the PILOT Composer program. Under PILOT (p. 73), strings are 
concatenated by naming two strings in a Ciompute (or Aiccept) instruction 
(e.g.:C:$ONE=$ONE$TWO). If, however, one of the strings is "undefined," 
because it has never been used before, it has the value of a text literal rather 
than the value of a string. In the example, if $TWO had the value JOHN but 
$ONE was undefined , the new value of $ONE would be $ONEJOHN — hard- 
ly what we wanted! I avoid this by initializing strings used in this way (see lines 
130 and 140). 

PILOT input and output (I/O) is handled with READ:, WRITE: and 
CLOSE: instructions. Each instruction requires a "device name" (a "C:" for 
cassette or a "D:" for disk) and, for disk, a file name. These are separated from 
following data by a comma. The data can be text literals, numeric or string 
variables. In a single file, READ: must be separated from WRITE: by a 
CLOSE:. You can try this in immediate mode or in a program: 

DISK CASSETTE 

WRITE:D:TEST,ABCD WRITE:C,ABCD 

CLOSE:D:TEST CLOSE:C: 

READ:D:TEST,$STRING READ:C:,$STRING 

T:$STRING T:$STRING 

We'll have more on I/O in a future article to discuss a hidden glitch. For now, 
just do as line 430 does and put all device specifications in a single string. 

Keeping a clean screen in a program often requires erasing a line on the 
screen. It's not so simple in PILOT since the "blank line" string automatically 
defaults to one character. Lines 750 and 1230 show an easy way; just print a 
series of blanks followed by a non-printing character such as an arrow. Line 
750, for instance, prints the #A followed by a blank and a left arrow. When 
the line is printed, the right -most character is blanked out, and the left arrow 
holds the space, but doesn't show. You can type an arrow by keying [ESC] 
then holding down the [CTRL] key while typing the desired arrow key. 
Repeat all three strokes for each arrow. 

Although the Primer tells us that variables come in two flavors — strings 
(pp. 69-81) and numerics (pp. 85-92), we never find out how to change one 
into the other. It's simple but tricky. String variables can be made from 
numeric variables by C:omputing or Accepting them: 
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C:$ONE=#A 

A:$ONE = #A 

A string variablecan be turned into a numeric variable ONLYby Accepting it: 

A:#A=$ONE 

After this instruction, #A will have the numeric value from $ONE; non- 
numeric data will be disregarded (see the Player program, lines 1310-1350). 

Line 1140 in the Player program presents a powerful way to combine 
"relational operators" to make "conditional statements" (pp. 89-90). Linking 
conditions with " + " signs creates "logical ors." For instance, line 1140 would 
be read, "if #T=256 OR if ^T = 128 OR if #T=64 then J:ump . . . ."In other 
words, if #T equaled any one of the three numbers, the program would find a 
"true" and J:ump. Neat! But, you can't do it the other way, with a JN: 
instruction to execute on a "false," because the "N" looks at the 
M:atch register, not at the conditionals. 

You can get "logical ands" by multiplying the conditionals: 

T(#T = 100) * (#U =200) * (#V = 50): ALL THREE 

This statement would be read: "if fT = 100 AND if #U =200 AND if #V = 50 
then T:ype ALL THREE." 

At last, the BUG. (A friend says that micros are too small to have bugs. 
She claims that they have fleas!) Right there on page 31 the Primer tells us 
that the computer "ignores" remarks. Although that may be accurate in the 
linguistic sense, it's not so in the operative sense. In line 1150 in the Com- 
poser program the remark set off by a "[" MUST be typed without spaces. It 
seems that the [ turns any intervening spaces into significant space and, 
therefore, part of the accept buffer. Ditto for other commands. I don't know 
if it's a bug or a flea — I know it's a bear to figure out! (Atari's internal 
manuals even have it wrong!) Be safe, don't use brackets when in doubt. 

by Ken Harms 



50 R: PILOT COMPOSER 

60 R : ANTIC , VOL . 1 . NO . 4 

70 R : K. W. HARMS 

80 R : 

1 00 R : I NIT 
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1 1 

12 
13 
14 
15 
16 
17 
18 
6/ 
2/ 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
EN 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 



* I NIT 

C:#A=0 

C: $NOTEVALUES- 

C : $PLAYVALUES= 

C : SEND-! 

C : $G00DN0TES=C D E F G A B 

C: 5G00DDURATION-1 2 4 8 S 

C: $NOTETABLE»C. 1/ D. 3/ E. 5/ F . 

G. 8/ A. 10/ B. 12/ 0. 0/ 1 . 1/ 2. 

4. 4/ 8 . 8/ S. 16/ 

R : FILE 

*FILE 

R: 

T : ENTER DEVICE TO SAVE MUSIC ON 

T: D=DISK, C-CASSETTE 

A : $D 

R : NEXT , CHECK TO SEE IF CASSETTE 

M: C 

CY : $FILESPEC = C : 

JY:*FILEDONE [IF CASS JUMP OUT 

M: D 

TY: ENTER FILE NAME 

AY : SFILE [GET FILE NAME 

CY : $FILESPEC-$D : $FILE 

TN: I DON' T KNOW THAT DEVICE 

JN: * F I L E 

* FILEDONE 

T:H [ESC-CTRL-CLEAR .. CLEARS SCRE 

R: INSTRUCTIONS 

"INSTRUCTIONS 

R 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



*\ 



NOTES ARE : C D E F G A 
AND FOR OFF 



DURATIONS ARE: 
1 -WHOLE 
4-QUARTER 
S-SIXTEENTH 

ENTER & TO QUIT 



2-HALF 

8=EIGHTH 

0-NONE 
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( 7 00 R: 

71 *ENTER 

720 R: 

730 C:#A=#A+1 

740 POS : 1 , 1 2 

750 T : ENTER 4 NOTES + DURATION FOR CHO 

RD #A B[SPACE, ESC-CTRL-L EFT 

760 POS : 1 7 , 15 

770 A : {NOTES 

780 M: & 

790 JY : * END ER 

800 EY: 

810 U: *CHECKNOTES 

820 SO : 20 [8EEP ON COMPLETION 

830 PA : 7 

840 SO : 

850 WRITE(#A=10) :$FILESPEC,$PLAYVALUES 

860 C(#A=10) :#A=0 

870 J : * ENT E R 

900 R: ENDER 

91 * ENDER 

920 R: 

930 C : $PLAYVALUES = $PLAYVALUES ! 

940 WRITE : SFILESPEC ,$PLAYVALUES 

950 CLOSE : SFILESPEC 

960 T 

970 T : SAVED IN FILE SFILESPEC 

980 T 

990 T 

1000 E: 

1100 R : CHECKNOTES 

1110 "CHECKNOTES 

1120 R : 

1130 A:=$NOTES [MOVE $N. TO ACCEPT 

1140 MS : . [MATCH ON 1ST BLANK 

1150 A:-$RIGHT!/[ ADD/, MOVE TO ACCEPT 

1160 C:#C=0 [SETS NOTE COUNTER TO 

1170 C : $NOTEVALUES = 

1180 C :#G=0 

1 190 * L OOP 

1200 MS :E3B, [SKIPS 2 SPACES 

1210 CN(#G=0):$PLAYVALUES=$PLAYVALUES$ 

NOTEVALUES 



ENTER 



SESSION ENDED 



259 



PILOT YOUR ATARI 



n 



v 



220 

1230 

1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 



POSN ( 

TN(#G 

EN: 
MS ; $R 
C:$SA 
A:-|L 
MS :B_ 



#G-0 
-0): 



$LE 
$N0 
*TR 
-IS 

*L0 

TRAN 



IGHT[M 
VE-IMA 
EFT [ 

[ 
FT HAS 
TE-ILE 
ANSLAT 
AVE [ 
OP 

TR 
SLATE 



2.22 

(ESC-CTRL-UP 

ATCH W/0 1ST LETTER 
TCH [SAVE ALL 
|L. HAS BLANK+LETTER 
SKIP BLANK & LETTER 
THE LETTER WE NEED 
FT 
E 
PUT ALL IN BUFFER 

ANSLATE 



#C- 

#c- 
#c< 
#c- 

INO 
POSN: 
TN:ER 

R: SET 

CN:#G 

EN: 

A(#C- 

M(#C- 

EY(#C 

P0SN( 

TN(#C 

CN(#C 

EN(#C 

POS {# 

T(#C> 

C(#C> 

E(#C> 

A :-|N 

MS :|N 

A:-|R 

MS :/ 

C:|NO 

E : 



-IG 
-IG 



#C+1 
7) 
5) 
5) 
TE 

2,22 
ROR IN 
G FLA 
-1 



OODNOTES 
OODDURATION 



THIS VALUE: SNOT E 
G FOR BAD NOTE 



6) :-|N0TE 

6): I 
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PILOT PLAYER 
ANTIC, VOL . 1 
K. W. HARMS 

FILE 



50 R 

60 R : ANTIC , VOL . 1 . NO 

70 R 

80 R 

300 R : 

310 * F I L E 

320 R : 

330 T:ENTER DEVICE TO PLAY MUSIC FROM 

340 T : D-DISK , C-CASSETTE 

350 A : $D 

360 R : NEXT , CHECK TO SEE IF CASSETTE 

370 M: C 

380 CY : SFILESPEC-C : 

390 JY:*FILEDONE [IF CASS JUMP OUT 

400 M: D 

410 TY: ENTER FILE NAME 

420 AY : SFILE [GET FILE NAME 

430 CY : $FILESPEC-$D : SFILE 

440 TNI DON'T KNOW THAT DEVICE 

450 JN: * F I L E 

460 *FILEDONE 

470 T :S [ESC-CTRL-CLEAR .. CLEARS SCRE 

EN 

1000 R: 

1010 R: 

1020 R: 

1030 *TEMPO 

1040 T :H [ESC-CTRL-CLEAR CLEARS SCREEN 

1050 POS: 9,5 

1060 T : PLEASE ENTER A TEMPO 

1070 T 

1 080 T 

1 090 T 

1 100 T 

1110 POS: 17, 1 1 

1120 *RESTART 

1 1 30 A:#T 

1140 J(#T-256) + (#T-128) + (#T-64) : * R E AD 



TEMPO & PLAY 
TEMPO 



256 - Adagio 
128 - Andante 
64 - Allegro 



1 150 T 
1 160 J 
1 1 70 R 
1180* 



PLEASE ENTER NUMBER AGAIN 
♦RESTART 
READ 
READ 



1190 T : 
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r. 



1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 



T : PLAYING FILE $FILESPEC 

READ: SFILESPEC , SPLAYVALUES 

R : THIS DEMOS WORD PARSING 

* L P 1 

C:#N-0 

*L00P2 

C:#N-#N+1 

A:-$PLAYVALUES 

MS :EL 

JN : * READ 

C: SPLAYVALU ES-$RIGHT 



A 



A(#N 
A(#N 



D 
2) 
#N-3) 
#N-4) 
#N«5) 
-$L EFT 



#A-$LEFT 
#B-$L EFT 
#C-$LEFT 
#D-$ LEFT 
#L-$LEFT 



A 

A 

A 

A 

M: ! 

EY : 

J (#N<5) : * L P2 

SO :#A#8#C#D 

PA :#T/#L 

J: * LOOP T 
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Holiday Trees 



Add to your holiday pleasure by decking out these cybernetic trees 
using this PILOT program. It comes complete with colored lights, a 
scrolling message, and "Jingle Bells" in one-part harmony. To do this 
we will use some innovative techniques that will expand your understanding 
of PILOT programming. 

Let's wander through the listing. After the title lines, we find a J:ump 
command at line 50. As you'll see, we U:se *PARSE, *COLORS, and 
*LLOOP over and over as the program operates. Each time PILOT hits a 
U:se or J:ump command, it goes to the first instruction (in this case, line 1) 
and reads every line until it finds the required module name. Putting often- 
used modules near the front of the listing makes the program run faster. 
PILOT is fast. Even putting the modules at the end of the 225 lines of this 
program did not noticeably slow down the song, but this programming con- 
cept makes it run even faster. 

Now J:ump to *DRAWTREES (lines 1000-1540). This module uses a 
mirror-image concept to draw two trees for nearly the price of one. Notice 
that the first tree is drawn at X =-40, Y =32 (lines 1050-1070) and the second 
at X=40, Y=32 (lines 1080 and 1090). This means that the Y positions in 
both trees are the same while the X positions differ by only the sign. As a 
result, we can draw in the same location in both trees by using positive and 
negative values of the same number for the X position. 

We use this concept to draw the stars and balls with a single position and 
*MIRRORSTAR and *MIRRORBALL modules (lines 2100-2160 and 
2400-2460). The C:ompute instruction in line 2140 changes the sign of #Xby 
multiplying it by -1. Simple and neat! 

Back to the *TREE module. PILOT graphics uses only four colors. 
Although it calls these RED, BLUE, YELLOW and ERASE, PILOT really 
looks at a memory location each time it draws in a PEN color to see what col- 
or should be used. Normally, of course, it finds a number in BLUE which 
means blue. In line 1650, we force a different number into location 708 to tell 
PILOT that we want it to draw in green whenever it hits a BLUE command. 
Line 1760 sets the RED pen to brown. Location 709 controls YELLOW and 

263 



PILOT YOUR ATARI 



711 the ERASE commands. You might want to experiment to see how these 
"registers" work. 

After we finish drawing and decorating the trees, we end up at line 1530, 
which C:omputes a string into the $MESSAGE variable. I had to double- 
space the message because the Axcept command, used later in the *PARSE 
module, automatically inserts blanks at the start and end of each string. At 
present, there doesn't seem to be a good way around this restriction, but we 
end up with a nice message anyway. Although the printer doesn't show it, an 
Escape character is placed between each word to preserve word spacing. This 
is necessary because Axcept also condenses all multiple spaces to single 
spaces. The Escape character will not print the message: you enter it by press- 
ing the [ESC] key twice. 

You'll probably want to enter your own message. Just type [space] [ESC] 
[space] between each word and two [ESC]'s at the end. Also, keep the 
message less than 255 letters long. 

When finished drawing the trees, we J:ump to *MAINLOOP (lines 
600-699). This module is the workhorse, it plays the song, calls for the 
message and color changes. It's rather long but really simple to type in. All 
the *LLOOP commands are on multiples of three —just type it once and use 
ATARI's wonderful screen editor to change the line number. Ditto for the 
SOiound and PA:use commands. 

* MAINLINE does one other important thing. Since the program 
doesn't use any keystrokes, the ATARI would soon begin changing screen 
colors. The Ciompute in line 688 puts a in location 77 to tell the computer 
that a key has been pressed even when none was. This delays the "attract" 
mode each time through the loop. 

The next module, *LLOOP, simply calls *PARSE and *COLORS. The 
*PARSE module breaks strings into individual characters ("parsing"). As 
you type it, remember the two right arrows in line 150 and 37 in line 180. 
The arrows tell the MS: command to skip a character for each arrow before 
looking for a M:atch. 

After skipping 37 characters in line 180, the MS:$RIGHT in line 190 
forces the first 37 letters into the $LEFT string which we T:ype in line 210. 
That's the billboard section of the message. By repeatedly stripping off the 
first character and adding it to the end of the message, we make the words 
march across the text window at the bottom of the graphic screen. Oh yes, 
C:@B656? That's a memory location which tells PILOT to T:ype the message 
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on the second line of the text window. Without that, each message would 
T:ype on a different line and would scroll off the top. (Just for fun, the lines 
are numbered through 3.) 

Although *PARSE is busy, *COLORS (lines 300-400) is a speedy devil 
too. By Computing different values for location 709, * COLORS changes 
the color in the YELLOW pen. This flashes red, blue, brown, and yellow in 
the stars and balls. 

To close, let me an:wer two questions. How do I get PILOT to number 
the modules in different series? Simple. As I build a program, each module is 
stored in a different disk file. After all modules are debugged, each is LOAD- 
ed into memory and RENumbered in a number series which doesn't overlap 
with any other module. It's then SAVEd, memory NEWed and the next 
module loaded. After all are RENumbered, all are LOADed into a complete 
program and SAVEd in a different file. 

Last, how do I get those big letters in the R:emarks? Just enter a control 
N (a bar symbol) right after the colon. 

Best wishes for a happy holiday season watching your cybernetic trees! 

by Ken Harms 



/TT 



UCHRISTMAS TREES 

ANTIC, VOLUME 1, NO 
•DRAWTREES 
U PARSE 



EEEQ& 
10 R : 
20 R: 
30 R: 
40 R : 
50 J : 
100 R 
1 10 R 
120 R 
130 * P ARS E 
140 A : -SMESSAGE 
1 50 MS :S3, 
160 MS : SRIGHT 

170 A:$MESSAGE-$MATCH$LEFT 
180 M S : EEE3rEE333EEE3EEEEEnEEHZEEE3fEEEEH 
EEEEEH, 

185 R: LINE 180 IS 37 RIGHT ARROWS AND 
COMMA 
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190 
200 
210 
220 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
500 
510 
520 
530 
540 
550 
560 
570 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
61 1 
612 
613 
614 
615 
616 
617 
618 
619 



MS 
C 

T 
E 
R 
R 
R 

* 

C 
C 

c 
c 
c 
c 

E 
R 
R 
R 

* 

U 

u 



:$ 

@B 
$L 



U 

COL 

:#B 
(#B 

(#B 
(#B 
(#B 
(#B 



RIGHT 
656-1 
EFT 



COLORS 

ORS 

-#B + 1 

-1 

-2 

-3 

-4 

-4 



@B709-146 
@B 7 09-6 6 
@B 7 09-26 

@B 7 9 = 1 8 

#B-0 



a 

LLO 
: *C 
: *P 



LLOOP 

OP 

OLORS 

ARSE 



SO 

E 
R 
R 
R 



y 



MAI 



U 

R 

R 

SO 

PA 

U: 

SO 

PA 

: 

SO 

PA 

U: 



SO: 2 
PA: 1 
U: *L 
SO: 2 



NL 

AR 

ST 

OT 

2 

6 

LO 

2 

6 

LO 

2 

2 

LO 

2 

6 

LO 

2 



MAINLOOP 

OOP 
SE 

PARSE TO GET TEXT 
E NUMBER SEQUENCE 



OP 
OP 
OP 
OP 
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V 



620 PA : 16 

621 U : * L L P 

622 SO: 22 

623 PA : 32 

624 U : * L L OP 

625 SO : 22 

626 PA: 16 

627 U: * LLOOP 

628 SO : 25 

629 PA: 16 

630 U : ULOOP 

631 SO: 18 

632 PA : 24 

633 U : * LL OOP 

634 SO: 20 

635 PA: 8 

636 U: * LLOOP 

637 SO: 22 

638 PA : 48 

639 U : * L L P 

640 SO: 

641 PA: 16 

642 U : * L L P 

643 SO: 23 

644 PA : 16 

645 U: * LL OOP 

646 SO : 23 

647 PA: 16 

648 U : * L L P 

649 SO : 23 

650 PA: 24 

651 U : * L L P 

652 SO: 23 

653 PA: 8 

654 U : * L LOOP 

655 SO: 23 

656 PA : 16 

657 : * L L P 

658 SO : 22 

659 PA: 16 

660 U : * L L P 

661 SO : 22 

662 PA : 16 
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66 

66 

66 

66 

66 

66 

66 

67 

67 

67 

67 

67 

67 

67 

67 

678 

679 



68 
68 



68 

68 

68 

68 

68 

10 

10 

10 

10 

10 

10 

10 

10 

10 

1 

1 1 

11 

11 

1 1 

1 1 
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10 
20 
30 
40 
1 150 



U: 
SO 
PA 
U: 
SO 
PA 
U : 
SO 
PA 
U: 
SO 
PA 
U: 
SO 
PA 
U: 
SO 
PA 
U: 
SO 
PA 
U: 
SO 
SO 
PA 
C: 
J : 
R 
R 

R 

* 

G 
C 
C 
U 
C 
U 
A 
C 
C 
U 

c 
u 



* L LOOP 

: 22 
: 8 

* L LOOP 
: 22 

: 8 

* L LOOP 
: 25 

: 16 

* L LOOP 
: 25 

: 16 

* L LOOP 
: 23 

: 16 

•LLOOP 
:20 
: 16 

* LLOOP 
: 18 

: 48 
•LLOOP 



64 
3.B77-0 
•MAI NLOOP 



"N 



I DRAWTREES 

DRAWTREES 
R.CLEAR 
:#X — 40 

:#Y — 28 

: *TREE 

:#X-40 

: *TREE 

: NOW PUT SOME STARS ON THEM 

:#X— 40 

:#Y-32 

: *STAR 

:#X-40 

.♦STAR 
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u 

R 

AND 

R : S 

PACE 

ND S 



OK T 
ORE 
X--4 
Y-1 6 
STAR 
MI R R 
X — 3 
STAR 
MI R R 
X--5 
Y-0 
STAR 
MI R R 
X--2 
STAR 
MIRR 
X--6 
Y--2 
STAR 
MIRR 
X — 1 
STAR 
MIRR 
HOW 
X--4 
Y-8 
BALL 
MIRR 
X — 5 
Y--1 
BALL 
MIRR 
X--3 
Y— 1 
BALL 
MIRR 
TREE 
MUS 
PACE 
, ESC 
PACE 



HAT DID THE TOPS, NOW FOR 



A 
1 1 
11 
11 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
15 
15 
LO 
1 5 
IT 
RD 
E 
1530 C : $MESSAGE»H AVEBAEHAPP 



ORSTAR 
2 

ORSTAR 
6 



ORSTAR 

4 

ORSTAR 
5 



ORSTAR 
3 

ORSTAR 

BOUT A FEW BALLS? 

3 



ORBALL 



ORBALL 

3 

2 

ORBALL 

S DRAWN, SET UP TYPING, CO 

IC LOOP 

BETWEEN EACH CHARACTER, H 
, ESC , SPACE BETWEEN EACH WO 
, ESC, ESC .SPACE , ESC, ESC AT 
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r, 



Y E H 

1540 J 

1600 R 

1 61 R 

1620 R 

1630 * 

1640 R 

GREEN 

1650 C 

1660 

1670 

1 680 

1690 

1700 

1710 

1720 

1 730 

1740 

1 750 

OWN 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1 970 

1980 

1990 

2000 

2010 

2020 



L I D A Y ! H E 
*MAINL00P 



A 



TREE 



TREE 
: NEXT 



LINE SETS " BLUE" PEN TO 



710-(12*16)+6 
EN BLUE 

0T0 #X+28,#Y+5 
URNTO 



URN 
RAW 
URN 
RAW 
ILL 
RAW 
EXT 



-26 

63 

232 

2 

61 

THE TRUNK 

LINE SETS 



RED" PEN TO BR 



:@B708-( 14* 
R : PEN RED 
R : G 0T0 #X + 4 
R : TURNTO 
R : DRAW 4 
R : PEN ERASE 
R : G OTO #X-4 
R : PEN RED 
R: FILL 5 



16)+(4) 



#Y 



#Y-1 



y 



STAR 



STAR 

R : PEN YELLOW 

GOTO #X P #Y 
TURNTO 



DRAW 
TURN 
DRAW 
TURN 
DRAW 
TURN 



4 

180 

2 

90 

2 

180 



270 



HOLIDAY TREES 



2030 
2040 
2100 
2110 
2120 
2130 
2140 
2150 
21 60 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
231 
2320 
2330 



GR 

E 

R 

R 

R 



DRAW 4 



y 



MIRRORSTAR 



•MIRRORSTAR 

C:#X»(#X*-1 )+1 

U : * STA R 

E 

R 

R:U BALL 

R 

♦BALL 

GR : PEN YELLOW 

GR : GOTO #X,#Y 

GR:TURNTO 

C :#A-0 

*STARTBALL 

C :#A-#A+1 

GR:4(DRAW #A;TURN90) 

J (#A<3 ) : *STARTBALL 

GR:TURNT0 270 ; PEN BLUE;DRAW 1 

G R : 1 ( TURN 90 ; PEN YELLOW; DRAW 2 
N BLUE : DRAW 2) 
2340 GR : 3 ( TURN 90; DRAW 

PEN BLUE : DRAW 2) 

E 



PE 



1 ; PEN YELLOW; DR 
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2440 
2450 
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R 
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This chapter first appeared in ANTIC as two articles implementing a 
turtle graphics system in Forth. 
Let me make two quick points about Forth: 

• Doing this project in any other computer language would have been so 
involved that I would never have done it, and so lengthy that this 
magazine would never have published it. 

• Doing it in Forth was so easy it took me considerably longer to write the 
English for this article than the Forth code! 

Those of you who have Pink Noise Studios' pns-Forth (I use version 1.4) 
can edit the screens accompanying these articles "as is" and start turtle-ing. If 
you have another implementation of Forth for the ATARI, some revisions are 
inevitable. I have used words like PLOT and DRAWTO that pns-Forth pro- 
vides for making graphics calls to the ATARI'S Operating System. Your 
system may already have similar words. Later, I'll discuss the functions of any 
non-fig-Forth words that I've used. 

Turtle Graphics Versus Coordinate Graphics 

"Turtle graphics" is a simple but powerful approach to creating graphic 
designs with a computer. It was originally developed in the 1960's at MrT — 
primarily by computer scientist, child psychologist and educator, Seymour Papert 
— as part of the Logo system. 

Let me give you a very simple example of how it works. Suppose we want to 
draw a square on the screen, 10 units on a side. The sequence of commands 

10 DRAW 10 DRAW 

90 TURN 90 DRAW 

10 DRAW 10 DRAW 

90 TURN 90 TURN 



Cordon Smith is a graduate student in physiology at Stanford University. He 
is interested in graphics and music, as well as Forth programming. 
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or, in a shorter form, 

4 ( 10 DRAW 90 TURN ) 
requests an imaginary "turtle" on the screen to crawl 10 units forward, draw a line 
as it goes, turn 90 degrees clockwise, and repeat four times. The turtle will leave 
behind a square. 
By typing 

DEFINE SQUARE AS 4 ( 10 MOVE 90 TURN ) END 
we can add the new command SQUARE to our turtle's graphics repertoire. 
Then typing the single command 

SQUARE 
will have the same effect as our previous sequence of commands. For example, 
to draw a square tilted by thirty degrees, we need only to type 

30 TURN 

SQUARE. 
The conventional approach to graphics, in which one must specify fixed 
screen coordinates and the endpoints of each line, is much more complicated. 
The principle advantage of turtle graphics is that it describes shapes in an 
intrinsic way, without referring to where they are or how they're oriented. 
The numbers used in turtle graphics represent easily visualized things, like 
lengths of lines or angles. 

A further important aspect of a turtle graphics system is the nature of the 
programming it encourages: structured, modular, and hierarchical. The 
DEFINE . . . AS . . . END construct shown above is the key to this. Basic sub- 
designs can be made into new turtle commands which are then as much a part 
of the turtle's language as the predefined system commands. These higher- 
level commands can then be used to define still higher ones, and so on. 

For example, a simple picture of a house like that in Figure 1 could be 
drawn with a long sequence of DRAWs and TURNs (along with another com- 
mand for the turtle to move without drawing). But the structure of the design 
cries out for the programmer to instead first enrich the turtle's vocabulary by 
defining commands such as, perhaps, RECTANGLE, WINDOW, DOOR, 
FRONT and ROOF, before using these higher-level commands to define one 
called HOUSE. 

The Forth Advantage 

Forth is so ideally suited to turtle graphics that, in a sense, implementing it is a 
trivial exercise. 
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The most complicated aspect of turtle graphics is the problem of providing a 
programming environment in which turtle commands can be executed. Such a 
capability is already intrinsic to Forth, while it is quite foreign to conventional 
languages like BASIC. 

The point here is that the turtle's language can be just an extension of the 
Forth language — turtle commands are simply Forth words. There is no need to 
write an extensible command language processor. That's what a Forth system 
already is! 

What the Screens Contain 

The ten screens of Forth listed in this article lay the necessary founda- 
tions for us to build a turtle graphics system. The words here are not specifi- 
cally turtle-oriented. Rather, they extend Forth 's capabilities in directions 
particularly useful to the application. 

Screens 1, 2, and 3 add some trigonometric capability to Forth. If the 
turtle is to move 10 units forward at 30 degrees from the vertical, we need to 
compute how far up and how far over she goes. For this we use a lookup- 
table approach. Scaling the values by 10,000 enables us to store them as 
single-precision integers. The words SIN* and COS* are the result of this. 
For example, 
10 30 SIN* 
leaves 5, or 10 times the sine of 30 degrees, on the stack; and this is how far 
over the turtle would move. 

Screen 4a makes available a defining word, VALUE, for a new data type. 
An alternative to CONSTANT and VARIABLE, VALUE words tend to 
make Forth code more readable. They are best explained by the following 
example: 

VALUE A VALUE B VALUE C 

ok 

2 TO A 3TOB 

ok 

A. B. 

2 3 ok 

A B + TO C C . 
5 ok 

VALUE words return their value when executed, except when they are 
preceded by TO, in which case they store the top of the stack into 
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themselves. (This idea has been discussed in the "Forth Dimensions" 
newsletter of the Forth Interest Group.) 

In screen 4a the words TO and VALUE are defined in assembly 
language, rather than Forth, so that they will execute as fast as CON- 
STANTS and VARIABLES. If you don't have an assembler, use the alternate 
Forth code on screen 4b. 

Screens 5 through 8, culminating in the word CLIP, implement a line- 
clipping algorithm. We want the turtle to be able to cross the edge of the 
screen, so that if we execute SQUARE when she is near the top we'll get 
something like Figure 2. But the Operating System will refuse to draw a line 
whose endpoints aren't both within the screen boundaries. Therefore, we 
must be able to calculate the endpoints of the portion of the line which lies 
on the screen. If we give CLIP the coordinates of two points, it first deter- 
mines whether any part of the line between them lies within a "clipping rec- 
tangle" whose extent we can specify by setting the values of LEFT, RIGHT, 
TOP, and BOTTOM. (Note that these words are in the vocabulary CLIP- 
PING.) If so, it returns the coordinates of the endpoints of the portion within 
the clipping rectangle, and a true flag. If not, it returns only a false flag. 

For example, suppose we set the clipping rectangle to be the size of the 
Graphics Mode-7 screen with 

CLIPPING 

TO LEFT 

159 TO RIGHT 

TO TOP 

79 TO BOTTOM 
Then 

30 30 50 50 CLIP 
leaves 30 30 50 50 1 on the stack because the line between (30,30) and (50,50) is 
completely within the clipping rectangle. But 

80 100 200 40 CLIP 

leaves 122 79 159 61 1 because only the portion between (122,79) and (159,61) 
of the specified line lies inside the clipping rectangle. And 

200 200 300 300 CLIP 
leaves because no part of the line lies inside. The Cohen-Sutherland 
algorithm that CLIP uses is described in detail in Chapter 5, "Clipping and 
Windowing," of Newman and Sproull's Principles of Interactive Computer 
Graphics. 
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The last screen, number 9, defines the word GRAPHICS for opening the 
screen in the graphics mode specified by the top of the stack, and LINE, which 
takes the coordinates of two endpoints and draws the clipped part of it on the 
screen. 

If you want to see the clipping in action, before the rest of the code is 
given, try the following: Define the words BORDER, RANDOM_LINE, 
and RANDOM_ LINES as 

: BORDER 

CLIPPING 

1 COLOR 

LEFT BOTTOM PLOT 

LEFT TOP DRAWTO 

RIGHT TOP DRAWTO 

RIGHT BOTTOM DRAWTO 

LEFT BOTTOM DRAWTO ; 

: RANDOM_LINE 
4 DO CRANDOM LOOP LINE ; 

: RANDOM_LINES 
DO RANDOM_LINE LOOP ; 

and then type 
CLIPPING 
20 TO LEFT 
140 TO RIGHT 
20 TO TOP 
60 TO BOTTOM 
7 GRAPHICS 
BORDER 
100 RANDOM_LINES 

The Inhabitants and Language of Turtleland 

Four independent turtles live in Turtleland. Multiple turtles open up 
interesting possibilities, like having turtles chase each other. With four 
turtles, each can draw in a different color (there are only four colors 
possible at one time). If you want a different number, you can change the value 
of the constant /TURTLES on screen 2 before loading. One turtle at a time 
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can be designated the "active turtle" with the SET ACTIVE command. She is 
the one who will respond when we type a command like "10 DRAW." 

Each turtle carries a pen. The active turtle's pen can be lowered with the 
PENDOWN command, leaving a trail when she moves, or raised with the 
PENUP command. The more general SET PEN command can be used to do 
either. 

The SET INK command fills the active turtle's pen with various colors of 
ink, depending on the graphics mode used. (Modes 3 through 8 can be selec- 
ted with the SET MODE command.) In all modes, ink of type is erasing 
ink. It is black, the same color as the background, except in Mode 8 when it 
is light blue. The command, ERASING, is the same as SET INK. Both 
choose erasing ink. In Modes 3, 5, and 7, there is also ink of type 1 (gold), type 
2 (light green), and type 3 (dark blue). In Modes 4, 6, and 8, types 2 and 3 are 
not available. The number of ink types is determined by the color video 
capabilities of the CTIA or GTIA chip. The colors are established by the 
Operating System when it opens the screen. You can use pns-Forth SET- 
COLOR word to change them. 

Each turtle has a position and a heading. The heading is the number of 
degrees clockwise from the vertical that she is facing. The active turtle's head- 
ing can be changed directly to any value with SET HEADING, also known 
as TURNTO, or it can be changed incrementally by the commands RIGHT 
(or TURN) and LEFT. 

The system keeps track of each turtle's position with X and Y coordi- 
nates. These are not the same as the screen column and row numbers. The 
SET MODE command arranges these coordinates so that the turtle's home 
at X=0 and Y=0 is the center of the screen, and so that there are one hun- 
dred X or Y units per pixel. This means that if a turtle is at X = 1000 and Y = 
500 she will appear ten pixels to the right and five pixels up from the center. 
You can arrange the coordinates differently if you wish. 

The active turtle's coordinates can be individually or jointly set with the 
commands SET X, SET Y, or SET POSITION (also known as GOTO). 
They cause the turtle to leave a track only if her pen is down. MOVETO can 
be used to temporarily raise the pen, or DRAWTO to lower it, before chang- 
ing position. The pen is restored to its original state after the change. 

The most interesting way to move the active turtle is with FORWARD, 
BACKWARD, DRAW, and MOVE commands. These move her a specified 
number of steps in whatever direction she is currently heading. FORWARD 
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and BACKWARD draw a line only if the pen is down; DRAW always draws; 
MOVE never does. Each step normally moves the turtle one pixel, a distance 
of 100 units in XY coordinates, unless you use the SET SIZE command to 
alter the step size. By changing the step size you can use the same word to 
draw the same shape in different sizes. 

A turtle's heading and her XY coordinates are always integers. The max- 
imum range for X and Y is from -32768 to 32767. If you drive a turtle beyond 
this range you may see unwanted tracks as she "jumps" to the other edge of 
Turtleland. 

Usually you can't see all of Turtleland on the screen. For example: in 
Mode 7 the screen displays only the part of Turtleland from X = 15900 to 
X = 15800 and from Y=-7900 to Y = 7800. You can select your own 
"window" into Turtleland with SET WINDOW command. Any tracks 
beyond the edges of the window won't be visible. Changing the window will 
affect the number of X or Y units per pixel. An alternate way to set the win- 
dow (and the step size) is with the PER-PIXEL command. 

The reason that the system defaults to 100 units per pixel is to let the tur- 
tle sit "between" pixels. If we used a coordinate system as coarse as the screen 
pixels, then every time we moved a turtle at some angle, her new position 
would get "rounded" to the nearest pixel. We wouldn't be able to do a series 
of moves without errors accumulating. Using 100 XY units per pixel gives us 
increased precision. 

The SET MODE command establishes the whole screen as the "view- 
port." This means that the view of Turtleland visible through the window 
will be projected onto all of the screen. You can select any rectangular piece 
of the screen to be the viewport with the SET VIEWPORT command. When 
you experiment with this, use the FRAME or NEW commands to draw a 
frame around the new viewport so you can see where it is. 

So far, four commands - MODE, SIZE, WINDOW, and VIEWPORT 
— relate to Turtleland as a whole, and seven of them — ACTIVE, PEN, INK, 
HEADING, X, Y, and POSITION — relate to the turtles. It is also possible 
for you to determine the current value of any of these parameters, by leaving 
out the word SET or by changing it to SHOW. For example, the command X 
by itself (i.e., not preceded by SET) leaves the active turtle's current X co- 
ordinate on the stack, where it can be used by any word for any purpose. So, 
the command SHOW X will display some message like "Turtle #1 is at 
X=300." 
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The system also has miscellaneous commands like CLEAR for clearing 
the screen, FRAME for drawing a frame around your picture, and HOME, 
START, and NEW for starting over. The command BYE leaves Turtleland 
and returns to pns-Forth. 

Of course, all the usual Forth words are still available while you're in 
Turtleland, in case you need to do arithmetic, comparisons, branching, loop- 
ing, or whatever. You can use the more compact loop syntax (...) and ( . . . 
+) in place of the structures DO . . . LOOP and DO . . . +LOOP. 

The important command DEFINE . . . AS . . . END allows you to add 
new words to the turtle's vocabulary. This makes it very easy to change any 
of my command names that you don't like. 

As an interesting example, you might want to 

DEFINE HILDA 

AS 1 SET ACTIVE END 
DEFINE GILDA 

AS 2 SET ACTIVE END 
DEFINE MATILDA 

AS 3 SET ACTIVE END 

so that you can talk to a turtle simply by invoking her name. 

Using The System 

To start turtle-ing, just use the SET MODE command. If you want to have 
Turtleland displayed in Graphics Mode 7, for example, type 7 SET MODE. 
After this you can immediately move the turtles around with 10 DRAW, 45 
TURN, etc. SET MODE initializes the system as follows: 

• All four turtles are home at X=0 and Y=0, with heading degrees. 

• They all have their pens down. 

• Their pens are filled with various ink types as described under the 
START command in the glossary. 

• Turtle #1 is active. 

• The window is such that X=0, Y=0 is in the center of the screen and 
there are 100 X or Y units per pixel. 

• The viewport is the whole screen. 

After you get acquainted with the various commands, you'll want to 
start extending the system by defining your own. Here is an example of a 
new command: 
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VALUE STEPS 
VALUE INCREMENT 
VALUE ANGLE 

DEFINE POLYSPI AS 
TO ANGLE 
TO INCREMENT 
TO STEPS 
BEGIN 

STEPS INCREMENT +TO STEPS 
STEPS FORWARD 
ANGLE TURN 
AGAIN 
END 

POLYSPI can make all sorts of interesting polygonal spirals. It expects to 
find two numbers on the stack. It stores the top one in ANGLE; this will be 
how many degrees the turtle will turn between each move. The one below 
gets stored in INCREMENT; this will be how many more steps the turtle will 
take each time compared to the previous time. Next STEPS is initialized to 
and we enter a Forth BEGIN . . . AGAIN loop. The words between BEGIN 
and AGAIN will be executed indefinitely. (You must press a yellow console 
button to stop POLYSPI.) Each time through the loop, STEPS is incre- 
mented by INCREMENT, and the turtle takes the number of steps in STEPS 
and turns the number of degrees in ANGLE. Thus POLYSPI is just an auto- 
mated sequence of FORWARDS and TURNs. For example, 2 90 POLYSPI is 
really the same as 

2 FORWARD 90 TURN 
4 FORWARD 90 TURN 
6 FORWARD 90 TURN 

and so on. 

The three VALUE words POLYSPI uses make it easy to see what's going 
on. However, another definition of POLYSPI is possible which uses no vari- 
ables at all: 

DEFINE POLYSPI AS 

BEGIN 

3 PICK + 
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DUP FORWARD 
OVER TURN 
AGAIN 
END 

This version keeps everything on the stack, using the Forth words PICK, 
DUP, and OVER for stack manipulation. You can make a variety of patterns 
with this one command by changing its two parameters. 

Pressing a yellow console button will break out of an indefinite loop of 
turtle moves. In fact, every time a turtle changes position, the system checks 
the console buttons and returns to command level if one is depressed. This 
makes it easy to regain control. 

As mentioned earlier, ten of the words used in my screens are pns-Forth 
words which won't be available (at least not with the same meanings) in 
other Forth systems. Two of these, 1- and TABLE, are common Forth exten- 
sions whose high-level definitions are 

: 1- 1 - ; 

and 

: TABLE BUILDS DOES OVER 
+ + @; 

The others are highly system-specific. Four of them — SETUP S, 
CLOSE S, SPLIT-SCREEN, and GR. - were used in the word GRAPHICS. 
Their definitions are quite complex, as these words are part of pns-Forth 's in- 
terface to the CIO routines in the Operating System. Their joint effect in the 
word GRAPHICS, however, is quite simple. Any Forth system sold for the 
ATARI will probably have words for opening the screen for graphics. Simply 
use whatever your system provides to define your own GRAPHICS, which 
takes one number from the stack and opens the screen in that mode, with a 
text window at the bottom. 

The last four words specific to pns-Forth are CL#, COLOR, PLOT, and 
DRAWTO. These are used by LINE, FRAME, and POSITION. The first 
two are simple to define; just use 

VARIABLE CL# 
and 

: COLOR DUP CL# ! PAD C! ; 

CL# is a variable which is used to keep track of the color data used to 
plot a pixel. COLOR takes a number from the stack and stores it both in 
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CL# and at PAD, for later use by PLOT and DRAWTO. The definitions of 
PLOT and DRAWTO are complicated because these words result in calls to 
CIO. Again, however, their functions are simple and your system probably 
provides similar words. Define a PLOT which takes a column and a row 
number from the stack, moves the screen cursor to that position, and plots a 
pixel there using whatever byte is at PAD as the color data. Similarly, define 
a DRAWTO which takes a column and a row number from the stack, and 
draws a line from the current position of the screen cursor to this specified 
position, using the byte at PAD as color data. 

1 believe that all the other words I've used in this system are either stan- 
dard fig-Forth words or new words that I've defined. 



Glossary of Turtle Commands 

MODE Commands 

SET MODE [ mode — ] Opens the screen in the Graphics Mode 
specified by mode , which should be 3-8. Sets up a default viewport, win- 
dow, and step size by executing WHOLE-SCREEN SET VIEWPORT and 
100 PER -PIXEL. Draws a frame around the viewport with ink of type 1 . Initial- 
izes the turtles by executing START. 

MODE [—mode ] Leaves the number of the current Graphics Mode on 
the stack. 

SHOW MODE [ — ] Displays a message indicating the current Graphics 
Mode. 



ACTIVE Commands 

SET ACTIVE [ turtle/ — ] Makes the turtle whose number is turtle/ 
the active turtle. Future commands will be directed to her. 

ACTIVE [ — turtle/ ] Leaves the number of the active turtle on the 
stack. 

SHOW ACTIVE [ — ] Displays a message indicating the currently active 
turtle. 
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PEN Commands 

SET PEN [ state -~ ] Lowers the active turtle's pen if state is nonzero 
and raises it if state is zero. 

PEN [ — state ] Leaves 1 on the stack if the active turtle's pen is down and 
if it is up. 

SHOW PEN [ — ] Displays a message indicating whether the active turtle's 
pen is up or down. 

INK Commands 

SET INK [ ink# ] Fills the active turtle's pen with ink of type ink# . 
Type ink is erasing ink. Types 1, 2, and 3 are colored. Types 2 and 3 are not 
available in modes 4, 6, or 8. 

INK [ — ink# ] Leaves on the stack the type of ink in the active turtle's 
pen. 

SHOW INK [ — ] Displays a message indicating the type of ink in the ac- 
tive turtle's pen. 

HEADING Commands 

SET HEADING [ degrees — ] Makes the active turtle head in the direc- 
tion specified by degrees . Directions are measured clockwise from the ver- 
tical. 

HEADING 

f — degrees ] Leaves the active turtle's heading on the stack. 

SHOW HEADING [ — ] Displays a message indicating the active turtle's 
heading. 

X Commands 

SET X [ x — ] Changes the active turtle's X coordinate to x . Draws a line 
if her pen is down. 

X [ — x ] Leaves the active turtle's X coordinate on the stack. 

SHOW X [ — ] Displays a message indicating the active turtle's X coordinate. 
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Y Commands 

Similar to X Commands. 

POSITION Commands 

SET POSITION [ x y — ] Changes the active turtle's coordinates to 
X= x and Y= y . Draws a line if her pen is down. 

POSITION ['-- x y ] Leaves the active turtle's X and Y coordinates on 
the stack. 

SHOW POSITION [ — ] Displays a message indicating the active turtle's 
X and Y coordinates. 

SIZE Commands 

SET SIZE [ distance steps — ] Sets the step size so that the number of 
steps given by steps will cover a distance in XY coordinates given by 
distance . 

SIZE [ — distance steps ] Leaves the current size parameters on the stack. 

SHOW SIZE [ — ] Displays a message indicating the current step size. 

WINDOW Commands 

SET WINDOW [ xmin xmax ymin ymax — ] Sets the window to 
be the region from X= xmin to X= xmax and from Y= ymin to 
Y = ymax . 

WINDOW [— xmin xmax ymin ymax ] Leaves the current win- 
dow parameters on the stack. 

SHOW WINDOW [ — ] Displays a message indicating the current win- 
dow. 

VIEWPORT Commands 

SET VIEWPORT [ left right top bottom — ] Sets the viewport 
to extend from screen column left to screen column right and from screen 
row top to screen row bottom . 
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WHOLE-SCREEN SET VIEWPORT [ ~ ] Sets the viewport to extend 
from column 1 to the next to the last column and from row 1 to the next to the 
last row. 

VIEWPORT [ "" left right top bottom ] Leaves the current view- 
port parameters on the stack. 

SHOW VIEWPORT [ ~-] Displays a message indicating the current 
viewport. 

Other Commands 

CLEAR [ — ] Clears the graphics screen without affecting the turtles. 

FRAME [ ink# — ] Draw a frame around the viewport, using ink of type 
ink# . 

HOME [ -~ ] Moves the active turtle to X=0 and Y=0 with heading 0, 
without drawing a line, and then lowers her pen. 

START [ — ] HOMEs all the turtles first. Then fills their pens with ink. (In 
Mode 3, 5, or 7, the Nth turtle's pen is filled with ink of type N. In Mode 2, 4, or 
6, turtle 0's pen is filled with type ink while the pens of turtles 1, 2, and 3 are 
filled with type 1 ink, the only colored ink available in these modes.) Finally, 
makes turtle 1 the active turtle. 

NEW [ — ] Clears the screen, draws a frame with type 1 ink, and initializes 
the turtles by executing START. 

PER-PIXEL [ distance — ] Sets the window so that the point X=0,Y=0 is 
the center of the viewport, and so that the distance in XY coordinates given 
by distance will be the size of one pixel. Also, sets the step size so that each 
step is distance units long. 

FORWARD [ steps — ] Moves the active turtle forward the number of 
steps specified by steps . The movement is in the direction she is currently 
heading if steps is positive and in the opposite direction if steps is 
negative. The turtle's heading is unaffected. A line is drawn if her pen is down. 

BACKWARD [ steps ---] Like FORWARD except in the opposite direc- 
tion. 

DRAW [ steps — ] Lowers the active turtle's pen so that a line will defi- 
nitely be drawn as she moves forward the number of steps given by steps . 
Then her pen is returned to its previous state. 
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MOVE [ steps — ] Raises the active turtle's pen so that a line will 
definitely not be drawn as she moves forward the number of steps given by 
steps . Then her pen is returned to its previous state. 

RIGHT [ degrees — ] Turns the active turtle the specified number of 
degrees, to the right if degrees is positive and to the left if negative. 

LEFT [ degrees — ] Like RIGHT except in the opposite direction. 

TURN [ degrees - ] The same as RIGHT. 

GOTO [ x Y -} The same as SET POSITION. 

DRAWTO [ x y — ] Lowers the active turtle's pen so that a line will 
definitely be drawn as she moves to X= x and Y= y . Then her pen is 
returned to its previous state. 

MOVETO [ x y — ] Raises the active turtle's pen so that a line will 
definitely not be drawn as she moves to X = x and Y = y . Then her pen 
is returned to its previous state. 

TURNTO [ degrees - ] The same as SET HEADING. 

PENDOWN [ — ] Lowers the active turtle's pen: This is the same as 1 
SET PENSTATE. 

PENUP [ ~~ ] Raises the active turtle's pen. This is the same as SET 

PENSTATE. 

PENDOWN? [ — flag ] Leaves a 1 on the stack if the active turtle's 

pen is down and a if it is up. This is the same as PEN. 

PENUP? [ — flag ] Leaves a 1 on the stack if the active turtle's pen is 
up and a if it is down. This is the opposite of PEN. 

ERASING [ — ] Fills the active turtle's pen with type ink (the erasing 
type). This is the same as SET INK. 

(...) [ #loops — ] Executes the words between the left parenthesis and 
the right parenthesis the number of times given by #loops . 

DEFINE . . . AS . . . END Defines the word between DEFINE and AS to 
be a new turtle command which will execute the words between AS and 
END. 

BYE [ — ] Leaves Turtleland and returns to pns-Forth. 

by Gordon Smith 
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/T 



DEC 
TAB 
000 
087 
173 
258 
342 
422 
500 
573 
642 
707 
766 
819 
866 
906 
939 
965 
984 
996 
100 



Turtle 
IMAL 

LE SINES 
0175 



Graphics I, screen 1 



1 045 
1908 
2756 
3584 
4384 
5150 
5878 
6561 
7193 
7771 
8290 
8746 
9135 
9455 
9703 
9877 
9976 



0349 
121 9 
2079 
2924 
3746 
4540 
5299 
601 8 
6691 
7314 
7880 
8387 
8829 
9205 
951 1 
9744 
9903 
9986 



0523 
1392 
2250 
3090 
3907 
4695 
5446 
6157 
6820 
7431 
7986 
8480 
8910 
9272 
9563 
9781 
9925 
9994 



0698 
1564 
2419 
3256 
4067 
4848 
5592 
6293 
6947 
7547 
8090 
8572 
8988 
9336 
9613 
9816 
9945 
9998 



( Turtle Graphics I, screen 2 

) 

: (SIN) ( n1 n2 ) 

DUP 90 > IF 
180 SWAP - THEN 

SINES : 

: SIN ( n1 n2 ) 

( Returns 10000 times the sine 
( of n 1 degrees. ) 

360 MOD 

DUP 0< IF 

360 + THEN 

DUP 180 > IF 

180 - (SIN) MINUS ELSE 

(SIN) THEN ; 

: COS ( n1 n2 ) 

( Returns 10000 times the cosin 
( of n 1 degrees. ) 
360 MOD 90 + SIN : 
— > 

( 32 Turtle Graphics I, screen 3 
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: SIN* ( n1 n2 n3 ) 

( Returns n 1 times the sine of ) 

( n 2 degrees. ) 

SIN 1 0000 */ ; 
: COS* ( nl n2 n3 ) 

( Returns n 1 times the cosine of 

( n 2 degrees. ) 

COS 10000 */ ; 
— > 
( 33 Turtle Graphics I, screen 4a 

) 
VARIABLE TO-FLAG 

CODE TO ( ) 

1 # LDA, TO-FLAG STA, 
NEXT JMP, END-CODE 
: VALUE 

CONSTANT 
; CODE 
TO-FLAG LDA, 0- IF, 
2 # LDY, W ) Y LDA, PHA, 
INY , W ) Y LDA , PUSH JMP , ELSE, 
# LDA, TO-FLAG STA, 
BOT LDA , 2 # LDY , W ) Y STA , 
BOT 1+ LDA, INY , W ) Y STA , 
POP JMP, THEN, 
END-CODE 
— > 

( 34 Turtle Graphics I, screen 4b 
VARIABLE TO-FLAG 
: TO 

1 TO-FLAG ! ; 
: VALUE 

<BUILDS , 
DOES> TO-FLAG @ IF 
TO-FLAG ! 
I ELSE 
@ THEN : 
— > 

( Turtle Graphics I, screen 5 
VOCABULARY CLIPPING IMMEDIATE 
CLIPPING DEFINITIONS 
VALUE LEFT VALUE TOP 
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r* 



VALUE RIGHT VALUE BOTTOM 

2 BASE I 

: COOE ( p n ) 


OVER TOP < IF 
1000 + SWAP DROP ELSE 
SWAP BOTTOM > IF 
0100 + THEN 
THEN 
OVER LEFT < IF 
0001 + SWAP DROP ELSE 
SWAP RIGHT > IF 
0010 + THEN 

THEN ; 
— > 

( Turtle Graphics I, screen 6 

VALUE XI 

VALUE Y1 

VALUE CI 

VALUE X2 

VALUE Y2 

VALUE C2 

VALUE C 

: CLIP.X ( nl n2 ) 

Y1 - 
X2 XI - 
Y2 Y1 - 
*/ XI + ; 

: CLIP-Y ( nl nZ ) 

XI - 
Y2 Y1 - 
X2 XI - 
*/ Y1 + ; 
— > 

( 37 Turtle Graphics I, screen 7 
2 BASE I 

: WHERE? ( p ) 

C 0001 ANO IF 
LEFT LEFT CLIP_Y EL8E 
C 0010 AND IF 
RIGHT RIGHT CLIP_Y ELSE 
C 01 00 AND IF 
BOTTOM CLIP.X BOTTOM ELSE 



V, 
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C 1000 AND IF * 
TOP CLIP.X TOP THEN 

THEN 
THEN 
THEN ; 
DECIMAL 

: HERE! ( p ) 

C CI - IF 
TO Y1 TO XI XI Y1 CODE TO CI ELSE 
TOTZ T0X2 X2Y2C0DET0C2 THEN 

— > 

( 38 Turtle Graphics I, screen 8 ) 
FORTH DEFINITIONS 

: CLIP ( pi p2 pi' p2' t ) 

( or ) 

( pi p 2 f ) 

CLIPPING 

TO Y2 TO X2 X2 Y2 CODE TO C2 

- TO Y1 TO XI XI Y1 CODE TO CI 

BEGIN 
CI C2 OR WHILE 
CI C2 AND IF 
:S THEN 
C1 IF 
CI TO C ELSE 
C2 TO C THEN 
WHERE? HERE! REPEAT 

XI Y1 X2 Y2 1 ; 
— > 
( 39 Turtle Graphics I, screen 9 ) 

: GRAPHICS ( n ) 

( Clears the screen and sets it up ) 

( tor graphics mode n with a text ) 
( window. ) 

>R SETUP S CLOSE 8 
SPLIT-SCREEN 8> BR. : 

: LINE ( pi p2 ) 

( Displays whatever pieoe of the ) 

( line from pi to p2 is within ) 

v ( the clipping window. ) 
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' CL# @ COLOR 
CLIP IF 
PLOT DRAWTO THEN ; 
;S 

( Turtle Graphics II, screen 1 

) 
DECIMAL 
: VALUES 

<BUILDS DO 

, LOOP 

D0ES> OVER + + 

TO-FLAG @ IF 

TO-FLAG I I ELSE 

@ THEN : 
VALUE PREFIX 

SET ( ) 2 TO PREFIX ; 

SHOW ( ) 4 TO PREFIX ; 

ROOT: ( ) 

<BUILDS SMUDGE ] 
DOES> PREFIX + @ EXECUTE 

TO PREFIX : 
— > 
( Turtle Graphics II, screen 2 

) 
4 CONSTANT #TURTLES 
VALUE WHICH 

( The number of the active turtle ) 
: ACTIVEI ( n ) TO WHICH ; 

.WHICH ( ) 

." Turtle #" WHICH . ; 
: ACTIVE? ( ) 

.WHICH ." is active " CR ; 
ROOT: ACTIVE WHICH ACTIVEI ACTIVE? 
— > 
( Turtle Graphics II, screen 3 

) 

: MODE® ( n ) 8 7 C@ ; 

•.MODE? ( ) 

." This is graphics mode " 

MODE© . CR : 

TABLE MAX_COL# ( nl n2 ) 

39 , 19 , 19 , 39 , 79 , 79 , 
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159 , 159 , 319 , 

TABLE MAX_ROW# ( nl n2 

19 . 19 , 9 . 19, 39 
7 9 , 7 9 , 159 , 

: WHOLE-SCREEN ( — 
1 MODE® MAX_C0L# 1 
1 MODE© MAX„R0W# 1 



39 



n 1 n 2 n3 n 4 ) 



( 44 Turtle Graphics II, screen 4 

) 

: VIEWPORT® ( n1 n2 n 3 n 4 ) 

CLIPPING LEFT RIGHT TOP BOTTOM 

: VIEWPORT? ( ) CLIPPING 

." The viewport is from column ' 
LEFT . . " to " CR ." col umn ' 
RIGHT . . " and from row " TOP 

." to row " BOTTOM . CR ; 
VALUE XMIN VALUE YMIN 
VALUE XMAX VALUE YMAX 

: WINDOW® ( n1 n2 n3 n4 ) 

XMIN XMAX YMIN YMAX ; 

: WINDOW? ( ) 

." The window is from X=" XMIN . 

." to X=" XMAX . CR ." and from Y = " 

YMIN . . " to Y-" YMAX . CR 



( Turtle Graphics II, screen 5 

) 
VALUE 0COL VALUE 0ROW 

: ORIGIN! ( ) CLIPPING 

XMIN MINUS RIGHT LEFT - 

XMAX XMIN - */ LEFT + TO 0COL 

YMAX MINUS TOP BOTTOM - 

YMAX YMIN - */ TOP + TO BROW 

: VIEWPORT! ( nl n2 n3 n4 ) 

CLIPPING 
MODE® MAX_ROW# MIN TO BOTTOM 

MAX TO TOP 

MODE® MAX_COL# MIN TO RIGHT 

MAX TO LEFT 

ORIGIN I ; 
: WINDOW! ( nl n2 n3 n4 ) 
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I TO YMAX TO YMIN TO XMAX TO XMIN A 

ORIGIN! ; 
— > 

( Turtle Graphics II, screen 6 

) 
ROOT: VIEWPORT 

VIEWPORT® VIEWPORT! VIEWPORT? ; 
ROOT: WINDOW 

WINDOW® WINDOW! WINDOW? : 

LEFT- ( n ) 

CLIPPING LEFT 1- MAX ; 

TOP- ( n ) 

CLIPPING TOP 1- MAX ; 

RIGHT+ ( n ) CLIPPING 

RIGHT 1+ MODE© MAX_C0L# MIN : 

D0TT0M+ ( n ) CLIPPING 

BOTTOM 1+ MODE© MAX_ROW# MIN ; 
FRAME ( n ) COLOR 

LEFT- TOP- PLOT 

RIGHT+ TOP- DRAWTO 

RIGHT+ BOTTOM+ DRAWTO 

LEFT- BOTTOM+ DRAWTO 

LEFT- TOP- DRAWTO ; 
— > 

( Turtle Graphics II, screen 7 

) 
#TURTLES VALUES PEN() 

: PEN© ( flag ) WHICH P EN ( ) ; 

: PENDOWN? ( flag ) PEN© : 

: PENUP? ( flag) PEN© 0= ; 

: PENI (flag ) 

0- 0- WHICH TO PEN ( ) ; 

: PENDOWN ( ) 1 PEN! ; 

: PENUP ( — ) PEN! ; 
: PEN? ( ) .WHICH 

." has her pen " PEN© IF 

." down " ELSE 

." up " THEN 

CR ; 
ROOT: PEN PEN© PEN! PEN? ; 
— > 
( Turtle Graphics II, screen 8 
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TURTLE GRAPHICS 



#TU RTLES VALUES I NK ( ) 

INK® ( n ) WHICH INK( ) : 

INK! ( n ) WHICH TO IMK<( ) 

ERASING ( ) INK! ; 

INK? ( ) 

.WHICH ." is using ink #" INK© . CR 

ROOT: INK INK® INK! INK? ; 

— > 

( Turtle Graphics II, screen 9 

) 
#TURTLES VALUES HEADING( ) 
: HEADING® ( n ) 

WHICH HEADING ( ) ; 
: HEADING? ( ) .WHICH 

. " has heading " HEADING® . CR ; 
: HEADING' ( n ) 

360 MOD WHICH TO HEADING ( ) ; 

: TURNTO ( n ) HEADING! ; 

ROOT: HEADING 

HEADING® HEADING ! HEADING? ; 
: TURN ( n ) 

HEADING® + HEADING ! ; 

: RIGHT ( n ) TURN ; 

: LEFT ( n ) MINUS TURN ; 

— > 

( Turtle Graphics II, screen 10 

) 

#TURTLES VALUES X( ) 

#TURTLES VALUES Y( ) 

X® ( n ) WHICH X( ) : 

Y@ ( n ) WHICH Y( ) ; 

X? ( — ) 

.WHICH ." is at X-" X® . CR ; 

Y? ( — ) 

.WHICH ." is at Y=" Y@ . CR ; 

POSITION® ( n1 n2 ) X® Y@ 

POSITION? ( ) .WHICH 

." is at X-" X® . ." and Y-" Y@ . CR 



% ( Turtle Graphics II, screen 11 
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FORTH FACTORY 



r 



: X->C0L ( nl n2 ) CLIPPING 

RIGHT LEFT - XMAX XMIN - */ 0COL + 

: Y->R0W ( n1 n 2 ) CLIPPING 

TOP BOTTOM - YMAX YMIN - */ BROW + 

: SCALE ( nl n2 n 3 n4 ) 

SWAP X->C0L SWAP Y->R0W ; 

: 'CONSOLE ( flag ) 

53279 C@ 7 - NOT ; 

: POSITION! ( nl n2 ) 

7C0NS0LE IF 
SP! CR ." ok" QUIT THEN 

PEN© IF 
INK© COLOR 
OVER OVER SCALE POSITION© SCALE 

LINE THEN 
WHICH TO Y( ) WHICH TO X( ) ; 
— > 

( Turtle Graphics II, screen 12 

) 

: GOTO ( n1 n2 ) POSITION I ; 

ROOT: POSITION 

POSITION© POSITION! POSITION? ; 

: X! ( n ) Y@ POSITION! ; 

: Y! ( n ) X© SWAP POSITION! ; 

ROOT: X X@X! X? ; 
ROOT : Y Y@ Y ! Y? ; 
: MOVETO ( nl n2 — ) 

PEN© ROT ROT PENUP POSITION! PEN! ; 
: DRAWTO ( n1 n2 — ) 

PEN© ROT ROT PENDOWN POSITION! PEN! 



( Turtle Graphics II, screen 13 

) 
VALUE SIZE_N VALUE SIZ E_D 
: SIZE© ( n1 n2 ) 

SIZE_N SIZE_D ; 

: SIZE* ( n1 n2 ) SIZE© */ 

: SIZE ! ( nl n2 ) 

TO SIZE_D TO SIZE_N ; 
: SIZE? ( ) 
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TURTLE GRAPHICS 



[ SIZE.D DUP . 1 - IF \ 

. " step is " ELSE 
." steps are " THEN 
. " a distance of " S I Z E_N . CR ; 
ROOT : SIZE SIZE® SIZE ! SIZE? ; 
— > 
( Turtle Graphics II, screen 14 

) 

: VECTOR ( n nl n2 ) 

DUP HEADING® SIN* X@ + 

SWAP HEADING® COS* Y@ + ; 
: FORWARD ( n ) 

SIZE* VECTOR POSITION I ; 
: DACKWARD ( n ) MINUS FORWARD 

: MOVE ( n ) 

PEN® SWAP PENUP FORWARD PEN! ; 

: DRAW ( n ) 

PEN® SWAP PENDOWN FORWARD PEN! ; 
— > 

( Turtle Graphics II, screen 15 

) 

: PER-PIXEL ( n ) 

CLIPPING >R 
RIGHT LEFT - 2 / 
DUP MINUS R * SWAP 1+ R * 
ROTTOM TOP - 2 / 
DUP MINUS R * SWAP 1+ R * 
SET WINDOW R> 1 SET SIZE ; 
( Make SURE you typed the >R and R> ) 
( in this correctly. ) 

: SCREEN-DEFAULTS ( ) 

WHOLE-SCREEN SET VIEWPORT 

100 PER-PIXEL ; 

TABLE GR. BYTES ( n1 n2 ) 

960 , 400 , 200 , 200 , 400 , 
800 , 1600 . 3200 , 6400 , 

: CLEAR ( ) 

88 @ MODE® GR . BYTES ERASE ; 
— > 

( Turtle Graphics II, screen 16 

) 

: HOME ( ) 
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FORTH FACTORY 



MOVETO TURNTO PENDOWN ; 
: START ( — ) 

•TURTLES DO 
I SET ACTIVE HOME 
MODE® 2 MOD IF 
I ELSE I 0- 0- THEN 
SET INK LOOP 
1 SET ACTIVE ; 

: MODE! ( n ) 

GRAPHICS SCREEN-DEFAULTS 

1 FRAME START ; 
ROOT: MODE MODE® MODE ! MODE? : 
: NEW ( ) CLEAR 1 FRAME START 

: BYE ( — ) GRAPHICS 

710 CI 6 8 712 CI : 
— > 
( Turtle Graphics II, screen 17 

) 

DEFINE [COMPILE] : ; IMMEDIATE 

AS ; IMMEDIATE 

END [COMPILE] ; : IMMEDIATE 

\ (Ignores rest of line ) 

IN @ C/L / 1+ C/L * IN I ; IMMEDIATE 

( 

COMPILE [COMPILE] DO ; IMMEDIATE 
) [COMPILE] LOOP ; IMMEDIATE 
+) [COMPILE] +LOOP : IMMEDIATE 
S 
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WHY BUY THIS BOOK? 

Ipyou have an ATARI computer, you need two main things: 
INFORMATION about using it, and PROGRAMS to learn "from and e... 

That's what ANTIC magazine gives you — strictly ATARI information and 
programs written by other ATARI owners, like yourself. 

This book selects and reprints the BEST material 
from Volume One of ANTIC— The ATARI Resource, 
plus six new Bonus Games and several new articles. j ^ 

Remember — 

If you own an ATARI, 

You should be reading ANTIC. 
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